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IDENTIFICATION 
PRODUCT CODE: AC-8660E-MC 
PRODUCT NAME : FZDRGEO DR1I1K DIGITAL 1/0 
DATE: AUG. 1979 
MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS" 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975, 1979 BY DIGITAL EQUIPMENT CORPORATION. 
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¥. ABSTRACT 


THIS PROGRAM IS A LOGIC TEST OF THE DRI1-K DIGITAL INPUT 
OUTPUT CONTROL OPTION. ALi OPTION FUNCTIONS CAN BE TESTED. 


THIS PROGRAM ALSO INCLUDES TWO ROUTINES TO VERIFY PROPER 
CONNECTION’S TO THE H321 LOC-BOX AND ADJUSTMENT OF THE xLO1'S. 
THE ROUTINES SERVE THE SAME FUNCTION AS THE 

“PDLD #3 AND PDLD #4°° ONLINE TEST PROGRAMS. 


THE PROGRAM ALSO SUPPLY'S A SOFTWARE ROUTINE TO VERIFY PROPER 
CONNECTION’S TO DIGITAL DATA INSTRUMENT'S LIKE THE 
COULTER MODEL ‘'S’’ COUNTER (REF 9.3). 


DUE TO THE FLEXIBILITY OF THE OPTION, THE OPERATOR 

WILL BE REQUIRED TO SUPPLY OPTION CHARACTERSTICS. 

THE PROGRAM WILL HANDLE ALL CONFIGURATIONS OF INPUT INTERRUPT 
SWITCHES AND INPUT DATA LATCHING JUMPERS. FOR SYSTEMS WITH 
CONSECUTIVE MULTIPLE DR11-K'S, THESE CONFIGERATIONS MUST 

BE THE SAME. THE FOLLOWING JUMPERS MUST 

BE INSERTED TO EXECUTE THE LOGIC TEST: W21A, W22A AND W23A. 


THIS PROGRAM WILL TEST SEQUENTIAL DR11-K'S STARTING AT THE 
BUS ADDRESS AND VECTOR IN LOCATIONS ‘“‘SBASE*’ AND ‘‘$SVECTI"’. 
FOR NORMAL FACTORY CONFIG., ALL QUESTIONS SHOULD BE ANSWERED 
WITH A VALUE OF 0. 


AFTER INITIAL LOADING OF THE PROGRAM, THE LOGIC TEST MUST BE RUN. 


2. EQUIPMENT REQUIREMENTS 


PDP-11 FAMILY COMPUTER WITH CONSOLE 1/0 TERMINAL AND 8K OF MEMORY 
DR11-K OPTION INSTALLED 
BCO8R-1 ONE FOOT OUTPUT TO INPUT WRAPAROUND CABLE 


LA 
. 


LOADING PROCEDURE 


THE PROCEDURE FOR LOADING BINARY TAPES SHOULD BE FOLLOWED. 
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4. STARTING PROCEDURE 





4.1 CONTROL SWITCH SETTINGS (LOGIC TEST) 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED By 
DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXK NEW= (XXXXKK 1S THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


AFTER THE ‘"NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


~ 


2 


~ 


3 


~~ 


B) IF A CONTROL U <“*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 
: & 

WILL BE USED AS THE SOFTWARE DISPLAY REGISTER. 
Sw 15 = 1 100000 HALT ON ERROR 
SW 14 = 1 040000 LOOP ON CURRENT SUS-TEST 
Sw 15 = 1 020000 INHIBIT ERROR TYPOUTS 
$u 122 1 010000 LOOP ON CURRENTLY SELECTED DRIi-K 
Su 11 = 1 004000 INHIBIT SUB-TEST INTERATIONS 
Sw 16 = 1 002000 NO OUTPUT TO INPUT WRAPAROUND CABLE 
Sw 09 = 1 001000 LOOP ON ERROR 
Sw 08 = 1 000400. LOOP ON TEST IN SWR <7:0> 


i 
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4.2 


STARTING ADDRESSES 


200 1S THE STARTING ADDRESS OF THE LOGIC TEST. 

204 1S THE RESTART ADDRESS OF THE LOGIC TEST. 

210 1S THE STARTING ADDRESS OF THE CONTROL LINE LOOP. 

214 1S THE STARTING ADDRESS OF THE COULTER INTERFACE LOOP 

220 1S THE STARTING ADDRESS OF THE LOGIC TEST WITH ‘‘COULTER JUMPER’ CONFIG. 
224 1S THE STARTING ADDRESS OF THE LOGIC TEST WITH "LOC BOX JUMPER" CONFIG. 
230 1S THS STARTING ADDRESS OF THE H321 “‘LOC-BOX'’ FUNCTION LOOP 

234 1S THE STARTING ADDRESS OF THE XLO1 ADJUSTMENT LOOP 


OPERATING PROCEDURE 


THE ae JUMPERS MUST BE INSTALLED TO "EXECUTE THE 
LOGIC TEST: W21A, wW22A AND W23A 

IF THE CUSTOMER HAS SELECTED THE ‘'B’’ SECTION OF THESE JUMPERS 

1T MUST BE RETURNED TO THE ‘FACTORY’ POSITION BEFORE RUNNING 

THE LOGIC TEST. ** WORST CASE WILL ONLY BE CHANGING THREE JUMPERS. ** 
THE OPERATOR MUST INSERT THE CORRECT INFORMATION IN THE SWITCH 
REGISTER WHEN REQUESTED BY THE PROGRAM OR AN ERROR WILL OCCUR. 

WITH THE INPUT INTERRUPT SWITCHES AND DATA LATCHING JUMPERS 

IN THE FACTORY POSITION, Alc SWITCH REGISTER BITS SHOULD BE RESET. 
ONCE STARTED THE TEST WILL RUN IN IT'S NORMAL MANNER 

WITHOUT OPERATOR yori eter OR SWITCH SELECTION. 

*** NOTE: OPERATOR MUST INSERT INFORMATION WHEN REQUESTED BY 

PROGRAM. THE MACHINE WILL TYPE: NEW = AFTER NEW 

THE INFORMATION IS INSERTED. REFER TO SECTION 4.1 2) wee 


ERRORS 


THIS PROGRAM USES THE DIAGNOSTIC 'SYSMAC' PACKAGE FOR 
ERROR REPORTING AND TYPEOUT. REFER TO THE ‘ERROR POINTER TABLE’ 
FOR TYPE AND DESCRIPTION OF ERRORS. 

B CURRENT TEST NUMBER 


STSTNM: (LOC. 2) 
BYTE SITEMB: (LOC. 4) ITEM #N ERROR TABLE INDEX 
. ERRORING P.C. 


1 
1 
WORD $eRRPC: (LOC. 1 
WORD SPASS: (LOC. 1 CURRENT PASS COUNT 


~< 
=_ 
mn 
—- — —s 


1. IF SEQUENTIAL DR11-K°S, ALL DR11-K'S MUST BE IN THE 
SAME INTERRUPT SWITCHES AND DATA PATH JUMPER CONF IGERATION. 
2. THE FOLLOWING JUMPERS MUST BE IN THE ‘‘FACTORY'’ POSITION: 
W21A, W22A AND W23A 
3. THE OPERATOR MUST SUPPLY THE CORRECT INTERRUPT SWITCHES 
AND DATA PATH JUMPER AND SWITCH CONFIGURATION 
INFORMATION TO THE INITALIZATION QUESTIONS OR AN ERROR WILL OCCUR. 
4. FOR MULTIPLE GROUPS OF CONSECUTIVE DR11-K'S: 
THIS DIAGNOSTIC MUST BE RUN FOR EACH GROUP 
5. AFTER INITIAL LOADING OF THE PROGRAM, THE LOGIC MUST BE RUN FIRST 


SEC 0005 
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8. MISCELANEOUS 





8.1 EXECUTION TIME 


THE LOGIC TEST WILL TAKE APPROXIMATELY 60 goomw FOR COMPLETION 
ON A PDP11/05 TYPE AND WILL TYPE ‘END PASS N 

THE CONTROL LINE LOOP WILL NEVER EXIT 

THE COULTER INTERFACE LOOP WILi NEVER EXIT. 

THE H321 LOC-BOX FUNCTION LOOP WILL at. EXIT. 

THE XLO1 ADJUSTMENT LOOP WILL NEVER EXIT 


8.2 DEVICE ADDRESS PROGRAM LOCATIONS 


“"SBASE"’ (LOC. 1244) CONTAINS THE DR11-K BASE DEVICE ADDRESS <767770> 
“SVECTI’’ (LOC. 1240) THE LOW 9 BITS CONTAIN THE DRIi-K BASE INTERRUPT VECTOR <300> 
“SVECTI’ (LOC. 1240) THE HIGH 3 BITS CONTAIN THE DR11-K BR LEVEL #4 <200> 


*NOTE: IF THESE LOCATIONS ARE CHANGED, THE OPERATOR MUST START 
THE TEST AGAIN AT LOC. 200. THE PROGRAM WILL USE THE BASE 
ADDRESS AND VECTOR AND UPDATE THE ACTUAL PROGRAM VALUES. 
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9. PROGRAM DESCRIPTION THE LOGIC TEST MUST BE RUN FIRST AFTER INITIAL PROGRAM LOADING 


9.1 LOGIC TEST <SA 200 AND 204> 


THE LOGIC TEST IS A TEST OF THE CONTROL AND INPUT/OUTPUT 
REGISTERS. ALL JUMPERS AND SWITCHES COMBINATIONS EXCEPT: 


W21A, W22A AND W23A (AN BE DIAGNOSED. 


THE PROGRAM CHECKS THAT THE DR11-K CAN INTERRUPT AND THAT 
RESET’ WILL WORK CORRECTLY. 


9.2 CONTROL LINE LOOP <SA 210> 


THIS TEST LOOP PROVIDES THE OPERATOR WITH A 
SCOPE LOOP FOR CHECKING W21, 422 AND W23 IN THE ‘'B'’ POSITION. 


9.3 COULTER FUNCTION LOOP <SA 214> 


THE COULTER INTERFACE LOOP PROVIDES THE OPERATOR 
WITH SOFTWARE INTERFACE WITH THE COULTER HARDWARE. 
““SBASE’’ (LOC. 1244) CONTAINS THE DR11K BUS ADDRESS. 
THE OPERATOR IS INSTRUCTED TO RUN A SAMPLE ON THE COULTER. 
THE PROGRAM WILL WAIT FOR AN .NTERRUPT FROM THE DR11K. UPON AN 
INTERRUPT, THE PROGRAM DELAYS 70 cy TO ALLOW THE DATA LINES 
TO SETTLE. THE 70 MSEC. DELAY IS A FACTOR OF CPU TYPE AND MAY 
REQUIRE THE OPERATOR TO MODIFY THE VALUE OF ‘'CPU"' 
(LOC. west 5 Si THE — an ON A DIFFERENT CPU TYPE: 

/ 


11/40 620 


, THE COULTER INPUT DATA IS STORED IN A MEMORY BUFFER. 
THE HIGHER FOUR BITS ARE THE TEST NUMBERS WITH Z©RO BEING THE 
RUN TERMINATOR. UPON COMPLETION OF A RUN (SAMPLE), THE PROGRAM 
WIL. TYPE THE RESULTS IN THE FOLLOWING FORMAT AND THEN RESTART 
THE RUN SEQUENCE. THE TYPED RESULTS CAN BE COMPARED TO THE 
COULTER TYPOUT TO VERIFY A SUCCESSFUL RUN. 


"N“XXX"" WHERE N = TEST NUMBER AND XXX = TEST RESULTS 


THE RESULTS ARE BINARY CODED DECIMAL. THERE ARE BIT COMBINATIONS 
WHICH ARE ERRORS AND SHOULD NOT APPEAR ON THE COULTER OUTPUT. 


CODE: 


‘WV WH Ase oe 
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9.4 LOGIC TEST WITH COULTER JUMPER CONFIG. <SA 220> 
RUN THE LOGIC TEST WITH THE a tag INTERFACE JUMPERS 


AND WITH AN INTERRUPT LEVEL 
COULTER DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE: 


NON-LATCHING INPUT BITS 177777 
INTERRUPTING INPUT BITS 170090 
POSITIVE INPUT BITS 000000 
TRANSITION INPUT BITS 170000 


f 
9.5 LOGIC TEST WITH LOC-BOX JUMPER CONFIG. <SA 224> 


RUN THE LOGIC TEST WITH THE LOC-BOX INTERFACE JUMPERS 
AND WITH AN INTERRUPT LEVEL 2s 


OF 
H321 LOC-BOX DEFAULT JUMPER/SWITCH VALUES USED IN THIS MODE: 


NON-LATHING INPUT BITS 000000 
INTERRUPTING INPUT BITS 177777 
POSITIVE INPUT BITS 000000 


TRANSITION INPUT BITS 000000 





SEQ 0008 
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10. 
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SA 250> 
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THIS LOOP ENABLES THE OPERATOR TO VERIFY PROPER OPERATION 

OF THE H321 LOC-BOX LAMP'S, SWITCHES AND THE WIRE CONNECTION. 
THIS LOOP SERVES THE SAME FUNCTION AS THE ‘PDL DIAG #3 -- PDLD3"’ 
THE OPERATOR SELECTS THE LOC-BOX'S, VIA DR11K BUS ADDRESS, 

AND THEN DEPRESSES EACH SWITCH. 


“THE LAMP ABOVE THE SWITCH. 


THE PROGRAM WILL COMPLEMENT 


THE OPERATOR SHOULD DEPRESS THE 


SWITCHES SLOWLY TO VERIFY THAT ONLY DEPRESSING A oo be A as CAUSE 
THE LAMP TO CHANGE AND THAT RELEASING THE SWITCH DOES N 

IF THE LATER IS DETECTED THE DR11-K JUMPER CONFIG!" 

THE PROGRAM MAY OCCASIONLY MISS A SWITCH CLOS' 7. 


THE BUS ADDRESSES OF THE DRI1K'S ARE * 7) 
THE OPERATOR MAY CHANGE LOCATIONS ' 1, LOC 
02, 1404, 1406) TO RUN ON OTHER DR1 


(LOC. 14 


XLO1 ADJUSTMENT LOOP 


<SA 234> 


oce, 
1K 


STLON SHOULD BE QUESTIONED? 


= AND 167750. 


LO 
eo 


THIS LOOP ENABLES THE OPERATOR TO VERIFY OR ADJUST THE XL01/CC55A/CC55C 
THIS LOOP SERVES THE SAME FUNCTION AS ‘'PDL DIAGNOSTIC #4 


POT'S. 


-- PDLD4'’ THE H321 LAMP'S OPERATE AS SHOWN BELOW. 
PDL-11 INSTALLATION MANUAL FOR ADJUSTMENT DETAILS. 


THIS LOOP USES THE SAME DR11K*S BUS ADDRESS AS 9.6 


LISTING 


APPROCHING 
AN END 


CENTER 
REGION 


APPROACHING 
AN END 


ATTACHED. 


_—-— oe es SS = 4 OO 


on -- + - sO 





1 
1 
1 
1 
1 
1 
1 
0 
0 


REFER TS THE 


SEQ 0009 





DRII-K LOGIC TEST 
CZORGE .P11 


ony 


ee a a et a a 
Swe www we wa es 


Nw 
OOOO os oS rr es 


~sS 


Wh — 


a el el el el et ee et ot a tee et a | 
ee et at at 
eee eee ee ee eee ee eee ee eee ees es ae es “a 





: 31-AUG-79 1 


167770 
100300 


001100 


000011 


177776 


177774 
177772 
177570 
177570 


000000 


000007 


000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 


100000 
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-TITLE ORI1-K LOGIC TEST MAINDEC-11-CZDRG-E 
*COPYRIGHT (C) 1979 

s*DIGITAL EQUIPMENT CORP. 

s SRATRARD . MASS. 01754 


:*PROGRAM BY R. SHOOP 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
EPOREASE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


ABASE=167770 
AVECT1=100300 
-SBTTL BASIC DEFINITIONS 


trae ADDRESS OF THE STACK POINTER *** {100 ### 
STACK= 1100 


-EQUIV EMT ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV 10T.SCOPE :;BASIC DEFINITION OF SCOPE CALL 
ani CELLANEOUS DEFINITIONS 
11 :;CODE FOR HORIZONTAL TAB 
1p 12 3;CODE FOR LINE FEED 
CR= 15 :;CODE FOR CARRIAGE RETURN 
CRLF= 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ;;PROCESSOR STATUS WORD 
EQUIV PS,PSW 
STKLMT= 177774 ::STACK LIMIT REGISTER 
PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; HARDWARE SWITCH REGISTER 
DDISP= 177570 : HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 ; GENERAL REGISTER 
R1= 1 ; GENERAL REGISTER 
R2= %2 ;: GENERAL REGISTER 
R3= %3 >;GENERAL REGISTER 
R4= ne > GENERAL REGISTER 
R5= %5 ;;GENERAL REGISTER 
R6= %6 ;:GENERAL REGISTER 
R7= 47 ;;GENERAL REGISTER 
SP= %6 ::STACK POINTER 
PC= 47 ;;PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 :PRIORITY LEVEL 0 
PR1= 40 ::PRIORITY LEVEL 1 
PR2= 100 ;;PRIORITY LEVEL 2 
PR3= 140 7sPRIORITY LEVEL 3 
PR4= 200 ;;PRIORITY LEVEL 4 
PR5= 240 ::PRIORITY LEVEL 5 
PRO6= 300 ;sPRIORITY LEVEL 6 
PR7= 340 :PRIORITY LEVEL 7 


z*''SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


SEQ 0010 © 
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040000 SW14= 40000 

020000 Sw13= 20000 

010000 Swi2= 10000 

004000 SWIl= 4000 

002000 SwI0= 2000 

001000 SwO9= 1000 

000400 SwOB= 400 

000200 SwO7= 200 

000100 Sw06= 100 

000040 Sw0S= 40 ° 

000020 Sw04= 20 

000010 Sw03= 10 

000004 SWO2= 

000002" SwOl= 2 

000001 SwOO= 1 
EQUIV Sw09,SW9 
EQUIV SWO8,SW8 
EQUIV SwWO7,SW7 
EQUIV $W06,SW6 
EQUIV Sw05,SW5 
EQUIV SW04,SW4 
EQUIV SwWO3,SW3 
EQUIV $wO2,SW2 
EQUIV SW01,SW1 
“EQUIV $WO0,SWO 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

100000 B1T15= 100000 

040000 BIT14= 40000 

020000 BIT13= 20000 

010600 BIT12= 10000 

004000 BIT11= 4000 

002000 BIT10= 2000 

001000 B1T09= 1000 

000400 BITOB= 400 

000200 BIT07= 200 

000100 BIT06= 100 

000040 BIT05= 40 

000020 BIT04= 20 

000010 BITO3= 10 

000004 BITO2= 4 

000002 BITO1= 2 

000001 BITOO= 1 
EQUIV B1T09,B119 
EQUIV B1T08,B1T8 
EQUIV B1T07,B1T7 
EQUIV B1T06,B1T6 
EQUIV B1T05,B1T5 
EQUIV BIT04,BIT4 
EQUIV B1T03,B1T3 
EQUIV BITO2.BIT2 
EQUIV B1T01,BIT1 
EQUIV B1T00,B1TO 


—_—weaTeYe wwe wewewwewewrw wr VM MW MPM WWW Ww ww Ww Sw eS we we wees a a a we we a eee ees 





000004 


3; *BASIC tall TRAP VECTOR Rate he 
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ERRVEC= 4 TIME OUT AND OTHER ERRORS 


SEQ 0011 


Cel ee et ae el a a a el 
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000010 


000240 





TKVEC= 
TPVEC= 


PIRQVEC=240 
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ta tt AND ILLEGAL INSTRUCTIONS 


>; TRACE TRAP 

;;BREAKPOINT TRAP (BPT) 

fet A a Haas TRAP (JOT) *#*SCOPE*® 
7;POWER FAIL 

+ sEMULATOR TRAP (EMT) **ERROR*®* 
33""TRAP’’ TRAP 

;: TTY KEYBOARD VECTOR 

:;TTY PRINTER VECTOR 

>;PROGRAM INTERRUPT REQUEST VECTOR 
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CZDRGE P11 3i-AUG-79 11:23 OPERATIONAL SWITCH SETTINGS SEQ 0013 | 
396 .SBITL OPERATIONAL SWITCH SETTINGS 
‘® 
i SWITCH USE 
| ;* eweeece=e . i i £3& #4 seeeeeeeeceeeeeaeeeees 
ie g HALT ON ERROR 
ie 14 LOOP ON TEST 
;* 13 INHIBIT ERROR TYPEO 
ye 12 LOOP ON CURRENTLY SELECTED DR11-K 
ie 1 INHIBIT ITERATIONS 
:* 10 OUTPUT TO INPUT WRAPAROUND CABLE NOT CONNECTED 
:* 9 LOOP ON ERROR 
;* & LOOP ON TEST IN SWR<7:0> 


-SBTTL TRAP CATCHER 


000000 20 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.#2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
000176 LOCATION O/ CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: .wORD 0 ;;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: ~WORD 0 ;;SOFTWARE SWITCH REGISTER 


tk ke at tt at at ot ot ot at 
wwe www we www Ow ow ww www we 


.SBTTL STARTING aeakn aa 
JMP aaBE 


Se ee el a el el ee ok. ete a ed ee ed 


sp eeeeeeeeree eet terete eee eee eee eet ee TENET e Eee EEE E EEE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


| 
| 
000200 000137 001454 N ;;JUMP TO STARTING ADDRESS OF PROGRAM 
99 000204 000137 901510 IMP a#BEGINI ; JUMP TO THE RESTART ADDRESS 
400 000210 000137 011604 JMP a#EXTTST ; JUMP TO THE CONTROL LINES LOOP 
401 000214 000137 011766 JMP a#COULTR : JUMP TO THE COULTER FUNCTION LOOP 
402 000220 000137 001464 JMP COULTJ : JUMP TO SA WITH THE COULTER JUMPER CONFIG. 
403 000224 000137 001476 JMP H322J ; JUMP TO SA WITH THE LOC-BOX JUMPER CONFIG. 
404 000230 000137 012226 JMP LOCBOX ; JUMP TO SA OF LOC-BOX FUNCTION LOOP 
605 000234 000137 012540 JMP XLO1AD ; JUMP TO SA OF XLO1 ADJUSTMENT LOOP 
406 .SBTTL ACT11 HOOKS 
(1) 
(2) PPE AAA A ATTRA AAT ATTA TTA AA ATT ATTA TTT ATE TTS 
(1) ;HOOKS REQUIRED BY ACT11 
(1) 000240 $SVPC=. ;SAVE PC 
(1) 000046 .=46 
(1) 0000466 011324 SENDAD 3; 1)SET LOC.46 TO ADDRESS Or SENDAD IN .$EOP 
(1) 000052 52 
(1) 000052 000000 .WORD 0 . ::2)SET LOC. 322 TO ZERO 
(1) 000240 - =$SVPC 3; RESTORE P 
407 001000 .= 1000 
408 -SBTTL APT PARAMETER BLOCK 
(1) 
(2) ppt eeeeererereererereertirerererrerte ete e eee eA eee ARE eee 
(1) >SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) se imitating tee sign get eg ra i at nnn igi hs i> 
(1) 001000 .$X=. 3;SAVE CURRENT LOCATION 
f 6) 000024 :=24 3; SET POWER FAIL TO POINT TO START OF PROGRAM 
@) ge0024 000200 200 ;FOR APT START UP 
) 000044 -=44  :POINT TO APT INDIRECT ADDRESS PNTR. 
» 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
) 001000 - .=.$X ;;RESET LOCATION COUNTER 
; 
) 
) 


ee te te te el 
— se By os 
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SEQ 0014 


=AUG-79 11:23 APT PARAMETER BLOCK 
(1) 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .wORD 0 :;TwO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001170 SMBADR: .WORD $MAIL  ::4DDRESS OF APT MAILBOX (BITS 0-15) | 
(1) 001004 000030 $TSTM: “WORD 30 ::RUN TIM OF LONGEST TEST 
(1) 001006 000010 $PASTM: {WORD 10 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000036 SUNITM: {WORD 30 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 00003" "WORD SETEND-SMAIL/2 ::LENGTH MAILBOX~ETABLE (WORDS) 


Sf 


~~ 


ll ld ed ee a el ed el a ee tl 
et ee et nt et FU 


S8SS8S88S88S88S8Ssssss 


So 


Oe et el ee ee ee ed ee ed ee nd eed 


ee ce el et ed ee ed ed eld ce ed ed et eed 


PAAA WA E & & AWM OOOO 


ttt teeter ete i a te a a Rh en eee 
SSS8ssssss 
ooooo 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


001100 
000000 
0 


000012 


000000 


000000 


-SBTTL COMMON TAGS 


pteeererrrrrererererereerrererererrereeeteneteeeeeeeneteerereeet 
SSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM, 


-=1100 
SCMTAG: 


SBDDAT: .WORD 


S$AUTOB: .BYTE 
SINTAG: .BYTE 


SwR: WORD 
DISPLAY: .WORD 
$TKS: 177560 
$TKa: 177562 
$TPS: 177564 
STPB: 177566 
S$NULL: .BYTE 
SFILLS: .BYTE 
SFILLC: .BYTE 
STPFLG: .BYTE 
STIMES: 0 
SESCAPE:0 
S$QUES: .ASCII 
SCRLF: .ASCII 
SLF: eASCIZ 


a leleleleleleleleloR lelelolelalela| =) 








7; START OF 


3: CONTAINS 
3; CONTAINS 
3: CONTAINS 
3: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
>; CONTAINS 
3; CONTAINS 
3: CONTAINS 
3; CONTAINS 
>; CONTAINS 
3; CONTAINS 
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COMMON TAGS 


THE TEST NUMBER 
ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF GOOD" DATA 
ADDRESS OF "BAD* DATA 

*GOOD' DATA 


*BAD' 


AT 
;;RESERVED--NOT TO BE USED 


> AUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
: : ADDRESS OF arses REGISTER 


; UFFE 

::TTY PRINTER STATUS REG. ADDRESS 
7: TTY PRINTER BUFFER REG. ADDRESS 
>; CONTAINS NULL CHARACTER FOR FILLS 


:; CONTAINS # OF FILLER CHARACTERS REQUIRED 


INSERT FILL CHARS. AFTER A ‘LINE FEED" 


77 "'TERMINAL AVAILABLE’ FLAG (B11<07>=0=YES) 


3:MAX. NUMBER OF ITERATIONS 
7: ESCAPE ON ERROR ADDRESS 

; QUESTION MARK 

>; CARRIAGE RETURN 

3; LINE FEED 


Pp eeteeeereerereerererereeeetter eeu eeeeeReReRteeeneeeeeeteeeeie 


-SBTTL APT MAILBOX-ETABLE 


-s@@trreeeterreererererrereeereereeeetaekeeeeee eterna eee es 


$MSGLG: WORD 


AMSGTY 
AF ATAL 
ATESTN 
APASS 

ADEVCT 
AUNIT 

AMSGAD 
AMSGLG 





77 APT MAILBOX 
>:MESSAGE TYPE CODE 
7: FATAL ERROR NUMBER 
:: TEST NUMBER 

7;PASS COUNT 
7:DEVICE COUNT 

3:1/0 UNIT NUMBER 

> MESSAGE ADDRESS 

>: MESSAGE LENGTH 





) 
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(2) 001210 SETABLE: 3;APT ENVIRONMENT TABLE 

(2) 001210 000 SENV: -BYTE AENV > ENVIRONMENT BYTE 

(2) 001211 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 

(2) 001212 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

(2) 001214 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 

(2) 001216 000000 SCPUOP: .WORD ACPUOP ;;CPU i Nctew tere 

(2) ;* BITS eae tp Ae 

(2) i* 11/04= of "14 705= 02.11/20=03,11/40=06,11/45=05 
(2) if 11/70=06,PD0=07 ,Q=10 

(2) if BIT 10=REAL TIME CLOCK 

(2) ;* B1T Q9=FLOATING POINT ——— 

(2) 3* BIT 8=MEMORY MANAGEMENT 

(2) 001220 000 SMAMS1: .BYTE AMAMS! ;;:HIGH ADDRESS.M.S. BYTE 

(2) 001221 000 SMTYP1: .BYTE AMTYP1 ;;MEM. TYPE,BLK# 

(2) 3* MEM.TYPE BYTE <-- (HIGH BYTE) 

(2) if 900 NSEC CORE=001 

(2) 300 NSEC BIPOLAR=002 

(2) 500 NSEC MOS=(C03 

(2) 001222 000000 émanR!: «WORD AMADR1 ;;HIGH ADDRESS,BLK#1 

(2) 3* MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF “‘TYPE’’ ABOVE 
(2) 001224 00c SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

(2) O60 225 00c SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK&#2 

(2) Oui226 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS, BLK#2 

(2) 001230 000 SMAMS3: .BYTE AMAMSS ;:HIGH ADDRESS.M.S.BYTE 

(2) 001231 000 SMTYP3: .BYTE AMTYPS ;;MEM.TYPE,BLK#3 

(2) 001232 000000 SMADR3: .WORD AMADRS ;;MEM.LAST ADDRESS, BLK#$ 

(2) 001234 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,.M.S.BYTE 

(2) 001235 000 SMTYP4: .BYTE AMTYPG ;:MEM.TYPE,BLK&4 

(2) 001236 000000 SMADR4: .WORD AMADRS4 ;;MEM.LAST ADDRESS, BLK&A4 

(2) 001240 100300 SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#@1,BUS PRIORITY#1 
(2) 001242 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORI TY#2 
(2) 001244 167770 SBASE: .WCORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001246 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 

(2) 001250 000000 $CDwWl:  .WORD ACDwt >: CONTROLLER DESCRIPTION WORDS) 

(2) 001252 SETEND: 


(2) ~MEXIT 
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be -SBTTL ERROR POINTER TABLE 
(1) ;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) ;*1HE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1) >*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TAee Is PERTINENT. 
(1) > *NOTE1: If SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP 
+h > @NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS ERPLAINED AS FOLLOWS: 
(1) ie EM ;:POINTS TO THE ERROR MESSAGE 
(1) ie DH >;POINTS TO THE DATA HEADER 
(1) 30 DT >;POINTS TO THE DATA 
4 :* DF >;POINTS TO THE DATA FORMAT 
(1) 
(1) 
(1) 001252 SERRTB: 
410 
411 :1TEM 
412 001252 014251 "1 STATUS REGISTER IN ERROR 
413 001254 014671 DH1 TERRPC DRADD STATUS EXPECTED 
414 001256 015162 DT1 SERRPC DRADD S$BNDAT $GDDAT 
415 001260 015224 vFO 
416 
417 s1TEM = 2 
418 001262 014302 EM2 INPUT REGISTER IN ERROR 
419 001264 014741 DH2 ERRPC DRADD INPUT EXPECTED 
420 001266 015162 DT1 ;SERRPC DRADD $BDDAT $GDDAT 
‘e 001270 015224 DFO 
423 s1TEM 3 
424 001272 014332 EM3 ;OUTPUT REGISTER IN ERROR 
425 001274 015007 DH3 sERRPC DRADD OUTPUT EXPECTED 
426 001276 015162 DT1 SERRPC DRADD $BDDAT $GDDAT 
427 001300 015224 DFO 
428 
429 :1TEM OG 
430 001302 0°’ 363 EMG INPUT FAILED TO INTERRUPT 
431 001304 015055 DHS “ERRPC DRADD 
432 001306 015176 DI4 sSERRPC DRADD 
| 433 001310 015224 DFO 
434 
435 s1TEM 5 : 
436 001312 014415 EMS OUTPUT FAILED TO INTERRUPT 
437 001314 015055 DHS sERRPC DRADD 
438 001316 015176 D14 sSERRPC DRADD 
439 001320 015224 DFO 
440 
441 ;1TEM 6 
442 001322 014450 EM6 UNEXPECTED INTERRUPT 
445 001324 015055 DHS sERRPC DRADD 
444 001326 015176 DI4 :SERRPC DRADD 
445 001330 015224 DFO 
446 








F 
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s1TEM 67 
001332 014475 EM7 OPERATOR INTERVENTION ERROR 
001334 015055 DHS sERRPC DRADD 
001336 015176 DT4 sSERRPC DRADD 
001340 015224 DFO 
s1TEM = =610 
001342 014531 EM10 ; INTERRUPT INPUT BIT FAILED TO SET INPUT READY 
001344 015102 DH10 sERRPC DRADD STATUS EXPECTED INPUT BIT 
001346 015206 D110 sSERRPC DRADD $BDDAT $GDDAT BRLEV3 
001350 015224 DFO 
s1TEM = 611 
001352 014614 EM11 Saeet Eacen INPUT BIT SET INPUT READY 
001354 015102 DH10 sERRPC DRADD STATUS EXPECTED INPUT BIT 
001356 015206 D110 ;SERRPC DRADD $BDDAT $GDDAT BRLEV3 
001360 015224 DFO 
001362 167770 BASEBA: 167770 STARTING BASE BUS ADDRESS 
001364 000300 BASEIv: 300 STARTING BASE INTERRUPT ADDRESS 
001366 000200 BASEBR: 200 \ 
001370 000240 CPU: 240 ;1 MS. CPU DELAY FACTOR 240 FOR 11/05 
: 620 FOR 11/40 
001372 000000 NMBEXT: 0 ;ADDITIONAL DR-11-K 
001374 000000 NBEXT: 0 
001376 167770 DRADD: 167770 CURRENT DR11-K STARTING ADDRESS 
001400 000300 DRiv: 300 CURRENT DR11-K STARTING INTERRUPT VECTOR 
001402 167770 LOCI: 167770 ;LOC BOX #1 ADDR 
001404 167760 LOC2: 167760 ;LOC BOX #2 ADDR 
001406 167750 LOC3: 167750 ;LOC BOX #3 ADDR 
001410 167770 GRSTAT: 167770 sDR STATUS 
001412 167772 GRDAI]: 167772 ; INPUT REG. 
001414 ‘167774 GRDI1O: 167774 OUTPUT REG. 
001416 167775 GRBH1O: 167775 sOUTPUT REG HIGH BYTE 
001420 000000 NOTLCH: 0 
001422 000000 INTBIT: 0 
001424 000300 GRIVA: 300 
001426 000302 GRIVSA: 302 
001430 000304 GRIVB: 304 
001432 000306 GRIVSB: 306 
001434 000200 DIOBRL: 200 
001436 000000 BRLEV1: 0 
001440 000000 BRLEV2: 0 
001442 000000 BRLEV3: 0 
001444 000000 ODDJMP: 0 
001446 000000 MINSIN: 0 
001450 000000 TRANST: 0 
001452 000000 JUMPER: 0 71 Tf RUNNING H322 JUMPER CONFIG ;2 IF COULTER JUMPER CONFIG 


6 2 
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CZDRGE .P 31-AUG-79 11:23 ERROR POINTER TABLE SEQ 0019 
508 Pp reeeeeererreerererereereteeeee ete eeeeeeeeeeeeeere 
509 ; DIGITAL 1-0 LOGIC TEST 
510 Seema teh, Bet een oh tae ee ee 
511 001454 005000 BEGIN: CLR RO :CLEAR RO 
512 001456 005037 001452 CLR JUMPER ; INDICATE NORMAL FACTORY BUILD 
513 001462 000414 BR RBEG 
514 001464 012737 (00002 001452 COULTU: MOV #2, JUMPER s INDICATE COULTER JUMPER CONFIG 
515 001472 005000 CLR RO 
516 001474 000407 BR RBEG 
517 001476 012737 000001 001452 H322y: MoV #1, JUMPER s INDICATE LOC BOX JUMPER CONFIG 
518 001504 005000 CLR RO 
519 001506 000402 BR RBEG 
520 001510 012700 177777 BEGIN1: MOV #-1,R0 ;LOAD RO 
521 001514 000005 RBEG: RESET 
522 -SBTTL INITIALIZE THE COMMON TAGS ry 
(1) 3:;CLEAR THE COMMON TAGS (SCMTAG) AREA 
(1) 001516 012706 001100 MOV MSCMTAG,RO 3:FIRST LOCATION TO BE CLEARED 
(1) 001522 005026 CLR (R6)+ 3;CLEAR MEMORY LOCATION 
(1) 001524 022706 001140 CMP WSWR,R6O ;; DONE? 
(1) 001550 001374 BNE 76 ;;LOOP BACK IF NO 
(1) 001532 012706 001100 MOV #STACK,SP 3:SETUP THE STACK POINTER 
(1) siieeclhat *~y A FEW VECTORS 
(1) 001536 012737 015244 000020 MSSCOPE ,aMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(1) 001544 012737 000340 000022 mov #340, as lOTVEC+2 s: LEVEL 7 
(1) 001552 012737 9015524 000030 MOV #SERROR ,AWEMTVEC 3:EMT VECTOR FOR ERROR ROUTINE 
(1) 001560 012737 000340 000032 MOV #340 QMEMTVEC+2 = LEVEL 7 
(1) 001566 012737 020254 000034 MOV W#STRAP ,A#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
(1) 001574 012737 000340 000036 MOV #340 ,Q#TRAPVEC+2;LEVEL 7 
(1) 001602 012737 016300 000024 MOV #SPWRON, asPURVEC 3 :POWER FAILURE VECTOR 
(1) 001610 012737 000340 000026 MOV #340, aMPWRVEC+2 ; EVEL 7 
(1) 001616 013737 011272 011264 MOV SENDCT, SEOPCT SETUP END-OF -PROGRAM COUNTER 
(1) 001624 005037 001160 CLR STIMES >: INITIALIZE NUMBER OF ITERATIONS 
(1) 001630 005037 001162 CLR SESCAPE 3;CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 001634 112737 000001 001115 MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
(1) 001642 012737 001642 001106 MOV #., SLPADR ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001650 012737 001650 001110 MOV #., SLPERR ;SETUP THE ERROR LOOP ADDRESS 
(2) ee FOR . HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(2) ;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 001656 013746 000004 MOV QMERRVEC,-(SP) Soy ERROR VECTOR 
(2) 001662 012737 001716 000004 MOV #64$ ,A#ERRVEC ;SET UP ERROR VECTOR 
(2) 001670 012737 177570 001140 MOV #DSWR,SWR ;SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001676 012737 177570 001142 MOV #DDISP, DISPLAY io A HARDWARE DISPLAY REGISTER 
(2) 001704 022777 177777 177226 CMP #-1,aSWR RY TO REFERENCE HARDWARE SwWR 
(2) 001712 001012 BNE 66$ shia. IF NO TIMEOUT TRAP OCCURRED 
(2) 3;:AND THE HARDWARE SWR IS NOT = -1 
(2) 001714 000403 BR 65$ ;:BRANCH IF NO TIMEOUT 
(2) 001716 012716 001724 64%: MOV #65$, (SP) 3:SET UP FOR TRAP RETURN 
(2) 001722 000002 RT] 
<2) 001724 012737 000176 001140 65$: MOV #SWREG, SWR . 3 POINT TO SOFTWARE SWR 
(2) 001732 012737 000174 001142 MOV #DISPREG, DISPLAY 
os 001740 012637 000004 66$: MOV (SP)4,@MERRVEC ;;RESTORE ERROR VECTOR 
(1) 
(2) 001744 005037 001176 CLR $PASS sCLEAR PASS COUNT 
(2) 001750 132737 000200 001211 BITB WAPTSIZE,SENVM :ITEST USER SIZE UNDER APT 
(2) 001756 001403 BEQ 67% YES,USE NON-APT SWITCH 
(2) 001760 012737 001212 001140 MOV #$SWREG,SWR INO, USé APT SWITCH REGISTER 
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002104 
002106 


002110 
002112 
002116 
002124 
002132 
002134 
002140 
002142 
002144 
002146 
002152 
002152 
002156 


002234 
002234 
002240 


002272 


002306 
002354 


002376 
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000000 
000754 
005303 


000137 


104401 
000426 


104401 
000414 


013746 


001244 


001362 


000010 


020000 


013463 
100000 


001372 
002572 
000340 


000042 


003102 
002160 


002242 


001372 


002310 


000001 


001420 
177777 
001446 
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001362 


000004 


177052 


177036 


000004 
000006 


001452 


001422 


2$: 


4$: 


5$: 
3$: 


RBEG1: 


THE 


o~ 
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OMMON TAGS 


,BASEBR 
#1$, aWERRVEC 
BASEBA,R2 

R3 

(R2) 

#10,R2 

R3 

2$ 

(SP)+*,(SP)+ 

R3 


3$ 
#SW13,aSwR 
4% 


BUSTRP 
#SW15,aSWR 
5$ 


2% 
R3 
R3,NMBEXT 


MVECTRP ,Q#ERRVEC 
#340 ,a#ERRVEC+2 


2 
IOTEST 
oo 


:GET APT DEFINED ADDRESS 
;GET VECTOR 


GET PRIORITY 


;LOAD BUS ERROR 

;LOAD STARTING ADDRESS 
;CLEAR COUNT 

TEST IF EXISTENT 

sEXIST, UPDATE TEST ADDRESS 
UPDATE # OF DR11°S 


POP STACK 
J+ IF FIRST DOES EXIST 


son as ee TYPEOUT 

; TELL OPERATOR ae DRIIK DOESN'T EXIST 
; TEST HALT ON ERR 

:BR IF NO HALT 

sFIRST DR11-K DOES NOT EXIST 

> CHECK THE PROGRAM DEVICE ADDRESS 

; TRY AGAIN 


sADJUST R3 
SAVE THE NUMBER OF ADDITIONAL DR11-K 
RESET BUS ERROR 


;TEST IF UNDER A MONITOR 
:BR IF 
TEST RO 


:BR IF CLEARED 
JUMP IF SET 


3: TYPE ASCIZ STRING 


3;GET OVER THE ASCIZ 


Cisactan<t5><12>76R1 T= “K DIGITAL INPUT OUTPUT LOGIC TEST/ 


ory 7: TYPE ASCIZ STRING 
66$ 3:;GET OVER THE ASC12Z 
<15><12>/MAINDEC~ 11-CZDRG-E/<15><12> 


NMBE XT, -(SP) 


09% 


TYPE ASCIZ STRING 
OVER THE ASCIZ 


68% :GET 
1.8) ADDITIONAL bRIT-x'S CONNECTED/<15><12> 


#1, JUMPER 
1$ 


NOTLCH 
#-1, INTBIT 
MINSIN 


Jig Ro IF Dodie: CONFIG. 
ee LOC-BOX JUMPER CONFIG 


SEQ 0020 






l 
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568 092402 005037 001450 CLR TRANST 
56 002406 00137 003102 JMP 1OTEST ;RUN THE LOGIC TEST WITH LOC-BOX JUMPERS 
§70 002412 022737 000002 001452 18: CMP #2, JUMPER sTEST IF COULTER CONFIG. 
$71 002420 001015 BNE 3$ :BR IF NOT 
572 002422 012737 177777 001420 MOV #-1,NOTLCH sLOAD COULTER JUMPER CONFIG. 
$73 002430 012737 170000 001422 MOV #170000, INTBIT 
574 002436 005037 001446 CLR MINSIN 
575 002442 012737 170000 001450 MOV #170000, TRANST 
576 002450 000137 003102 JMP 1OTEST ;RUN THE LOGIC TEST WITH COULTER JUMPERS 
577 002454 004537 003016 3$: JSR RS, TALK ‘TALK TO THE ANIMALS 
578 002460 013554 SWNLB 
579 002462 001420 NOTLCH :ABOUT NON LATCH INPUT BITS 
580 02464 004537 9003016 JSR R5,TALK ; TALK TO THE ANIMAL AGAIN 
$81 002470 013652 SWINTB : 
582 002472 001422 INTBIT ;ABOUT THE INTERRUPTING BITS 
$83 002474 004537 003016 JSR RS, TALK ‘ISN'T THIS BOARING 
584 013759 SWPOSB 
585 002502 001446 MINSIN :AGAIN-ABOUT THE MINUS INPUT BITS 
586 002504 004537 003016 JSR RS, TALK ‘HO=HUM 
587 002510 014044 SWIRAB 
4 002512 001450 TRANST :AGAIN-ABOUT THE TRANSITION BITS 
590 .SBTTL DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR 
$91 002514 012737 010000 001124 MOV #B1112,$GDDAT :LOAD TEST BIT 
592 002522 033737 901124 001446 108: SIT $SDDAT,MINSIN : TEST IF NEG INPUT BIT 
593 002530 001407 BEQ 11$ ‘BR IF NOT 
594 002532 033737 001124 001450 BIT SGDDAT, TRANST : TEST IF TRANS. INPUT 
$95 002540 001403 BEQ 11$ [BR IF NOT 
596 002542 104007 ERROR y sLOGICAL OPERATOR ERROR 
597 : INPUT BIT CANNOT BE NEG. AND TRANS. AT THE SAME 
398 002544 000137 001454 JMP BEGIN : 
4 
600 002550 006137 001124 11$: ROL $GDDAT sMOVE LEFT 
74) 002554 103362 BCC 10$ ;BR UNTIL DONE 
603 002556 004537 003016 JSR R5, TALK sASK THE OPERATOR 
604 002562 014142 SWDPOB 
605 002564 001442 BRLEV3 ;ABOUT PROGRAM OPTIUNS 
606 002566 000137 003102 MP 1OTEST 
608 : INTERRUPT TO UNEXPECTED VECTOR 
609 002572 021627 001000 VECTRP:.CMP (SP), #1000 s TEST IF IN PROGRAM CODE 
610 002576 103402 “BLO 1$ “BR IF NOT 
611 002°00 000000 70$: HALT “FATAL BUS TRAP IN PROGRAM AREA 
612 002602 000776 BR 70$ 
613 002604 021627 000200 1$: CMP (SP) ,#200 :TEST IF IN SACRED VECTOR AREA 
614 002610 101002 BHI ?$ ;BR IF NOT 
615 002612 000000 71$: HALT sFATAL VECTOR TRAP 
616 002614 000776 BR 71$ 
617 002616 012637 003014 2s: MOV (SP)+,72$ :GET ADDR {HE TRAP OCCURRED TO 
618 002622 162737 000004 003014 SUB #4, 72% “MAKE REAL ADDRESS 
619 002630 032777 9020000 176302 BIT #SW13,aSWR sTEST IF TYPE ERROR INHIBIT 
620 002636 001050 BNE 3% “BR IF JNHIBIT 
621 002640 104401 002646 TYPE 65% s: TYPE ASCIZ STRING 


(1) 002644 000417 BR 64% 7;GET OVER THE ASCI2 
(1) 7365$: .ASCIZ <15><12>/DR11K INTERRUPTED TO LOC. / 
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CZORGE .P11 31-AUG-79 11:23 DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR SEQ 0022 
(1) 002704 648: 
622 002704 013746 003014 MOV 72$,-(SP) LOAD VALUE TO BE TYPED 
623 602710 104402 TYPOC 
624 002712 104401 002720 TYPE ,67$ is TYPE ASCIZ STRING 
(1) 002716 000420 ph 66% GET OVER THE ASCIZ 
(1) 3:67$: .ASCIZ / AND WILL NOW USE THAT VECTOR/<15><12> 
(1) 002760 66$: 
625 002760 042737 000007 003014 38: BIC #7,72% 7MASK OFF LOWER 3 BITS 
002766 032777 100000 176144 BIT #SW15,aSWR TEST IF HALT ON ERROR 
627 002774 001401 BEQ 4$ “BR IF NOT 
002776 000000 HALT ;DR11K INTERRUPTED TO WRONG VECTOR-PROG WILL NOW USE THAT VECTOR 
629 003000 022626 4$: CMP (SP)+, (SP) + CLEAN THE STACK 
630 003002 013737 003014 001400 MOV 72$,DR1V LOAD NEW VECTOR ADDRESS 
631 003010 000137 003126 JMP RBEG2 :TEST THE DRIIK AT THE NEW VECTOR 
632 003014 000000 72$: 0 
ore ;OPERATOR QUESTIONS AND ANSWER ROUTINE 
636 003016 012537 003030 TALK: MOV (R5)+,108 GET ASCII POINTER 
637 003022 012537 003074 MOV (R5)+,118 GET POINTER TO DATA FROM OPERATOR 
638 003026 104401 TYPE 
639 003030 013554 10$: SWNLB :TELL OPERATOR TO LOAD SWITCHES 
640 003032 023727 001140 000176 CMP SWR,#SWREG TEST IF SWITCH REG. EXISTS 
641 003040 001006 BNE 1$ :BR IF NO 
642 003042 104401 017763 TYPE »SMSWR :TYPE "'SWR = 
643 003046 104412 RDOCT sREAD oa 
644 003050 012677 176064 MOV (SP)+,aSwWR SAVE THE SWITCHES 
645 003054 000403 BR 2$ 
646 003056 104401 1$: TYPE 
647 003060 014227 DEPCNT TELL OPERATOR TO DEPRESS CONT 
648 003062 000000 HALT WAIT FOR OPERATOR 
649 003064 017777 176050 000602 28: MOV aSwR,al1$ :LOAD SWITCH VALUE 
650 003072 000205 RTS RS sEXIT 
+4 003074 001420 11$: NOTLCH POINTER TO DATA TO BE LOADED 
653 UNEXPECTED INTERRUPT 
654 003076 104006 UNEXPT: ERROR 6 UNEXPECTED INTERRUPT DURING A SUB-TEST 
000002 RT] sEXIT 
000005 IOTEST: RESET 
013737 001362 001376 MOV BASEBA, DRADD LOAD INITIAL STARTING ADDRESS 
013737 001364 001400 MOV BASEIV,DRIV LOAD INITIAL STARTING VECTOR 
013737 001372 001374 MOV NMBEXT,NBEXT RELOAD # AVAILABLE 
000005 RBEG2: RESET | 
012701 000240 MOV #240,R1 :LOAD R1 
012702 000242 MOV #242 ,R2 
010221 5$: MOV R2,(R1)+ ;SAVE THE ADDRESS 
012721 004700 MOV #4700,(R1)¢ [LOAD "JSR RO" 
022222 CMP (R2)+,(R2)+ :BUMP R2 
020227 001076 CMP R2,#SCMTAG-2 TEST FOR LAST 
001371 BNE 5$ *BR UNTIL DONE 
000005 1OTST1: RESET 
004737 003166 JSR PC,SETADD SET UP BUS ADDRESS AND VECTOR 
000453 be 1OTTS1 
013737 001376 001410 SETADD: MOV DRAND,GRSTAT LOAD 1ST ADDRESS 
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CZDRGE.P11 -31-AUG-7 
674 003174 013737 
675 003202 062737 
676 003210 013737 
677 003216 062737 
678 003224 013737 
679 003232 062737 
680 003240 013737 
681 003246 013737 
682 003254 062737 
683 003262 013737 
684 003270 062737 
685 003276 013737 
686 003304 062737 
687 003312 000207 
688 003314 013737 
689 003322 005037 
690 003326 053737 
691 003334 053737 
692 003342 012777 
(1) 003350 012777 
(1) 003356 012777 
(1) 003364 012777 
693 
(3) 

(3) 
(2) 003372 000004 
694 003374 005077 
695 003400 005077 
696 003404 005077 
697 
698 
(3) 
(3) 
(2) 003410 000004 
699 003412 012/37 
700 003420 012777 
701 003426 017737 
702 003434 023737 
703 003442 001401 
704 003444 104003 


001376 


000006 
001366 


000340 


176010 
176006 
176004 


001432 
001434 


001444 
001444 
176054 
176050 
176044 
176040 


001124 


001126 


DETERMINE THAT THE OPERATOR DID NOT MAKE A LOGICAL SWITCH ERROR 
;LOAD 2ND ADDRESS 
MOV DRADD ,GROIO ;LOAD 35RD ADDRESS 
ADD #4,GRD10 
MOV DRADD ,GRBHIO ;LOAD 4TH ADDRESS 
ADD #5,GRBHI1O 
MOV DRIV,GRIVA ;LOAD FIRST VECTOR 
MOV DRIV,GRIVSA 


ADD #2,GRIVSA 
MOV DRIV,GRIVB ;LOAD 2ND VECTOR 
#4 ,GRIVB 


eGRIV 
MOV DRIV,GRIVSB 
ADD nee 


R 
1OTTS1: MOV BASEBR ,DIOBRL ;LOAD BR LEVEL 
ODDJMP 


BIS MINSIN,ODDJMP ;SET MINUS INPUT BITS 

BIS TRANST ,OODJMP SET TRANSITION INPUT BITS 
MOV WUNEXPT ,AGRIVA RESET INPUT VECTOR 

MOV #340,aGRIVSA 
MOV #UNEXPT ,AGRIVB sRESET OUTPUT VECTOR 
MOV #340,aGRIVSB 


eee PSSST SSPE S Si TSS TTI TIT ISIVTITICCCCTTCT ITT TT TTT TTT TTT 
TETEST 1 TEST FOR NO BUS ERRORS 
+ Cenerereoreeoeccereerereereenseecenreccenseencoeeenrsenseetece 
TST1: SCOPE 
CLR AGRSTAT 
CLR aGRDAI 
CLR aGRDIO 


MOV DRADD ,GRDAI 
ADD #2,GROAL 


ithe eee ee RRE SES SERRE SERS REESE SEES ESE S ESOS ESS SE SSS SOS. 


T*TEST 2 TEST THAT OUTPUT REG. CAN HOLD #1 
j{eeeteneeneeecereucetererereteteeesterstsenseerereenenenenerere? 
TST2: SCOPE 

MOV #-1,$GDDAT ;LOAD EXPECTED 

MOV #-1,aGRDIO ;ALL ONES TO REGISTER 
MOV @GRD10, $BDDAT :READ OUTPUT REG. 

CMP SGDDAT, SBDDAT ; COMPA RE 

BEQ TST3 ::BR IF EQUA 

ERROR 3 TREG WILL NOT HOLD ONES 


SEQ 0023 
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000004 
0 000040 
001124 

177777 


175716 


001160 
175724 
001126 


712 003502 104003 


003504 000004 


012737 052525 00 
052525 17 
175666 00 
001124 00 


a 
OONAOUI~YS ~ 
Oo 
So 
Ww 
w 
pa 
Pa 


720 003540 104003 


(2) 003542 000004 


001124 


001126 
728 003576 


(2) 003600 


000004 00 


001124 


001124 
003654 


i a 
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13 TEST THAT RESET CLEARS OUTPUT REG. 


peeeeeeeeeerererereeeereeeeeeeeeeeteeeKeeeReeReeeeeeeeteneeeees 
SSTEST 3 TEST THAT RESET CLEARS OUTPUT REG. 

peeeeenereeeerereeeeeeteee rere ee ete eeeeeeee eee eeeeeeeeeeee 
i813: SCOPE 


MOV #40,STIMES ;:D0 40 ITERATIONS 
SGDDAT 


CLR 

MOV #-1,aGRD10 

RESET ;SET DATA TO ALL ONES 

MOV @GRD10,$BDDAT eae OUTPUT REG. 

BEQ TST4 ::BR IF EQUA 

ERROR REG FAILED TO CLEAR 
PRPS SSCS SSCS TT eT r crc c cece ii iii citi titi t it itiii titi tt 
S*TEST “a TEST THAT OUTPUT REG. CAN HOLD #52525 


SoU eReee eee ee eee eee eee eee eee eee KtkeeAKKtkeeeKKeAeeeAeKe eee 


TST4: SCOPE 
MOV #52525, $GDDAT 
MOV #52525, aGRD10 
MOV aGRD10,$BDDAT 


;LOAD EXPECTED VALUE 
READ tt REG. 


CMP $GDDAT , SBDDAT ; COMPARE 
BEQ TST5 3;BR IF EQUAL 
ERROR 3 sDATA NOT=52525 


SCRE eee eee Ke eKKRAKeKKKeKteeketeetee eee 


s*TEST 5 TEST THAT OUTPUT REG. CAN HOLD #125252 


SERRATE TTA eee ee KAA KKK eee THAR AAS 


TST5: SCOPE 
MOV 


#125252 ,$GDDAT ;LOAD EXPECTED VALUE 
MOV #125252,aGRD10 
MOV @GRD10,$BDDAT READ OUTPUT REG. 
CMP $GDDAT, $BDDAT ; COMPARE 
BEQ TST6 ;;BR IF EQUAL 
ERROR 3 DATA NOT=125252 


peieewkeeeeeeeeee eee eee eee eee eee eK KKK KKK KAKA eee 


eTEST 6 TEST THAT OUTPUT REG. CAN HOLD A COUNT PATTERN 
lpeeeeeeeeeeeeeeeet ROSA RARRRASASAARRRRSSRSASASEAR ERE EERE ERR ARS SE OS 
TST6: SCOPE 

MOV #4 ,STIMES ::D00 4 ITERATIONS 

MOV #2$,S$LPERR ;LOAD SCOPE — RETURN 

CLR $GDDAT 7CLEAR PATTERN 
2$: MOV SGDDAT,aGRDIO ;LOAD THE OUTPUT REG. 

MOV @GRD10,$BDDAT :READ THE REG. 

CMP $GDDAT,SBDDAT ; COMPARE 

BEQ 1$ ;:BR IF EQUAL 

ERROR 3 ;OUTPUT REG.FAILED TO HOLD COUNT PATTERN 
1$ INC $GDDAT ;UPDATE THE PATTERN 

2$ ; TRY AGAIN 





SEQ 0024 


a 
“Nt es SS sy 
Uw we www ww & 
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003656 
003660 
003666 


003674 


003724 


003726 
003732 


003734 
003736 
003744 


003752 


004010 


004012 
004016 


004020 


004114 


000004 
012737 
012737 


005077 


104003 


006337 
001360 


SN et wt oe es 
BAN 
SN NSS 


003674 
000001 


175514 


001124 


001124 


003752 
000001 


177777 


001124 


001124 


ee er) 
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001110 
001124 


175434 
175426 
001126 


001126 


001124 
175356 
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SS PUR e eee eee eee eee eee eee KeteeeeeeteteAtet tr eeReeeee 


*TEST 7 FLOAT A 1 ACROSS THE OUTPUT REGISTER 
peeeeeeeeereeeerereeeeeeeeereeetreeeeeeeeeeeeeeeRAe eee eeeAes 
i817: SCOPE 
MOV #1$,SLPERR ;LOAD SCOPE ERROR RETURN 
MOV #B1T0,S$GDDAT ;LOAD EXPECTED VALUE 
1$: CLR aGRD10 ;CLEAR OUTPUT 
BIS SGDDAT ,aGRDIO ;SET THAT BIT 
MOV @GRD1IO,$BDDAT ;READ OUTPUT REG. 
CMP SGDDAT,SBDDAT ; TEST RESULTS 
BEQ 2$ ;BR IF EQUAL ? 
ERROR 3 
2$: ASL $GDDAT SHIFT EXPECTED DATA 
BNE 1$ ;BR UNTIL DONE 
IT IIIIS LITT TIT IT ITITITITI TTT I TTT ITI TTTT TIT TTTiTiTiiiTiiiiiTt 
STEST 10 FLOAT A 0 ACROSS THE OUTPUT REGISTER 
CPTI TPS S SST ST Pretec eI PTT TTT TI TTT itt TTT Titi titi it) 
18110: SCOPE 
MOV #1$,SLPERR ;LOAD SCOPE ERROR RETURN 
MOV #B1T0,$GDDAT ;LOAD EXPECTED VALUE 
1$: MOV #-1,aGRDIO ;LOAD OUTPUT TO A ONE 
BIC S$GDDAT ,aGRDIO ;CLEAR A BIT 
MOV @GRD10,$BDDAT ;READ OUTPUT REG. 
COM SBDDAT ;COMPLEMENT IT 
CMP $GDDAT ,$BDDAT sEQUAL ? 
BEQ 2$ ;BR IF EQUAL 
ERROR 3 
2$: ASL $GDDAT sSHIFT LEFT 
BNE 1$ ;BRANCH UNTIL DONE 
ACSC T TTT S TTT e rei ities i iii i titi titi titi t ttt iti t 
STEST 11 TEST FOR SLOW OUTPUT GATES WITH #125252 


PR eeeeeeeeeeeeteeee Arete eee eee eee eee Kee KAKA eRe E Ee 
18111: SLOPE 


MOV #125252 ,S$GDDAT s;LOAD EXPECTED VALUE 


MOV $GDDAT ,aGRDIO ;LOAD OUTPUT 

COM aGRDIO ;COMPLEMENT OUTPUT REG. 
COM @GRDIO :COMPLEMENT OUTPUT REG. 
COM @GRDIO . gCOMPLEMENT OUTPUT REG. 
COM @GRDIO :COMPLEMENT OUTPUT REG. 
COM @GRDIO COMPLEMENT OUTPUT REG. 
COM @GRDIO ;COMPLEMENT OUTPUT REG. 
COM @GRD1O > COMPLEMENT OUTPUT REG. 
COM @GRDIO ;COMPLEMENT OUTPUT REG 
MOV @GRD10,$BDDAT :RF D OUTPUT REG. 

CMP SGDDAT,SBDDAT - 7 ST REGISTER 

BEQ TST12 :;BR IF CURRECT 


ERROR 3 








Er 
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780 peeeneeereererrrerrereerererereneereeeeeeeeeteeeertereteeeteAete 
(3) SeTEST 12 TEST FOR SLOW OUTPUT GATES WITH #52525 
(3) sp eeeeeeererrrrerereeterrreerereeerreeAeKeeAeeReeAAteseeT ATT Tee 
(2) 004116 000004 TST12: SCOPE 
781 004120 012737 052525 001124 MOV #52525, $GDDAT ;LOAD EXPECTED VALUE 
782 126 013777 001124 175260 MOV SGDDAT ,aGRDIO ;LOAD OUTPUT REG. 
785 004134 005177 175254 COM aGRDIO : COMPLEMENT OUTPUT RE 
( 004140 005177 175250 COM aGRD10 ;COMPLEMENT OUTPUT REG. 
(1) 004144 005177 175244 COM aGRDIO ;COMPLEMENT OUTPUT REG 
(1) 004150 005177 175240 COM @GRDIO : COMPLEMENT OUTPUT REG. 
(1) 004154 005177 175234 COM @GRDIO ;COMPLEMENT OUTPUT REG. 
(1) 004160 005177 175230 COM aGRDIO : COMPLEMENT OUTPUT REG. 
(1) 004164 005177 175224 COM aGRDI1O > COMPLEMENT OUTPUT REG. 
(1) 004170 005177 175220 COM . a@GRDIO ;COMPLEMENT OUTPUT REG. 

006174 017737 175214 001126 MOV @GRD10,$BDDAT ;READ OUTPUT REG. 
787 004202 023737 001124 001126 CMP $GDDAT,SBDDAT ;TEST PATTERN 

004210 001401 BEQ TST13 3;BR IF EQUAL 
44 004212 104003 ERROR 3 sOUTPUT REGISTER IN ERROR 
791 ppeeeeeeerereeeeetererertertrereeeeeAeteee Ate KeeARee eee AeA Tee 
(3) s*TEST 13 TEST THAT OUTPUT CAN HOLD LOW BYTE COUNT PATTERN 
(3) ppeeeeeeeeeeeereeteneteTeeeeeA eee eee KT Kee Kee AAA e Tee TATE Tee 
(2) 004214 000004 TST13: SCOPE 
(1) 004216 012737 0060400 001160 MOV #400, tiny ::D0 400 ITERATIONS 
792 004224 012737 0904246 001110 MOV #2$,$LPERR ;LOAD SCOPE ERROR RETURN 
793 004232 012737 052400 001124 MOV #52400, SGDDAT ;LOAD EXPECTED DATA 
794 004240 013777 001124 175146 MOV SGDDAT,aGRDIO ;LOAD OUTPUT REG. 
795 004246 113777 001124 175140 28: MOVB SGDDAT ,aGRDIO ;LOAD THE OUTPUT 
7 004254 017737 175134 001126 MOV @GRD10,$BDDAT ;READ OUTPUT REG. 
797 004262 023737 001124 001126 CMP $SGDDAT,$BDDAT 
798 004270 001401 BEQ 1$ ;BRANCH IF EQUAL 
799 004272 104003 ERROR 3 sERROR, OUTPUT REG. IN ERROR 
800 004274 105237 001124 1$: INCB $GDDAT sUPDATE PATTERN 
4! 004300 001362 BNE 2$ 
803 ppeeeeeeerereeteeeeeee etree eee ete rere AeA Kee Ae ete AAT 
(3) s*TEST 14 TEST THAT OUTPUT CAN HOLD HIGH BYTE COUNT PATTERN 
(3) peeeeeee etree ete eeeee etree rere eee eee AAT ATTA T ATA A TAT 
(2) 004302 000004 ist14: SCOPE 
(1) 004304 012737 000400 001160 MOV #400, wares 7:00 400 ITERATIONS 
804 004312 012737 004334 001110 MOV #2$,$LPERR ;LOAD SCOPE ERROR RETURN 
805 004320 012737 000252 001124 MOV #252, $GDDAT ;LOAD EXPECTED 
R06 004326 013777 001124 175060 MOV SGDDAT ,aGRDIO ;LOAD OUTPUT REG. 
807 004334 113777 001125 175054 28: MOVB S$GDDAT#+1, aGRBHIO ;LOAD THE HIGH BYTE 
808 004342 017737 175046 001126 MOV aGRDIO, $BDDAT ;READ OUTPUT REG. 
809 004350 023737 001124 001126 CMP SGDDAT. $BDDAT 
810 004356 001401 BEQ 1$ ;BRANCH IF EQUAL 
811 004360 104003 ERROR 5 sERROR, OUTPUT REG. IN ERROR 
812 004362 105237 001125 1$: INCB SGDDAT+1 
813 004366 001362 BNE 2$ 
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004500 


004502 


004536 


004540 


004600 


104001 


000004 


001124 


174742 
040000 


001124 


000200 
000200 
174664 
001124 


174642 
000100 
000100 
174622 
001124 


001126 


001124 
174726 
001126 
001126 


001124 
174670 
001126 
001126 


001124 
174626 
001126 
001126 
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TEST OUTPUT DATA ACCEPT FLAG 


peeeeereeerereerererererererterereereneeeeeerereeerenereeteretes 
eTEST 15 TEST OUTPUT DATA ACCEPT FLAG 
peeerereerrrererererreeerereeeeerereeeteeeeeeeeteneeenereneere 
ig115: SCOPE 
CLR @GRDIO 
MOV #-1,aGRDAI 


MOV #B1T15,$GDDAT ;LOAD EXPECTED 
MOV #B1T15,aGRSTAT SET BIT 15 
MOV @GRSTAT,SBDDAT READ STATUS 
BIT SGDDAT ,SBDDAT 
BNE TST16 7;BR IF SET 
ERROR 1 ERROR, BIT 15 FAILED TO SET 
ppeeeteeeeerererereerererererereeereneeeeeneneeeeeeeeneeeeeeeenet 
TEST 16 TEST OUTPUT INTERRUPT ENABLE 
peeeeeeeeeeeeereeeeeerereeeeeeeeeeteeeeeeeeeAeeeeAeeeAteeeeeTEee 
is116: SCOPE 
CLR @GRSTAT ;CLEAR STATUS 
MOV #B1T14,$GDDAT ;LOAD EXPECTED 
MOV #B11T14.aGRSTAT ;LOAD BIT 14 
MOV Q@GRSTAT,$BDDAT ;READ STATUS 
BIT SGDDAT ,SBDDAT 
BNE TST17 ::BR IF SET « 
ERROR 1 ;ERROR BIT 14 FAILED TO SET 


SLUR RAAT eee eee eee eter eee eee Ke Kee eteKKe eee teeer eee 


s*TEST 17 TEST INPUT DATA READY FLAG 


FURR R EATER TEETER KAKA heer eee ee 


18117: SCOPE 


MOV #B1T7,$GDDA1 ;LOAD EXPECTED 

MOV #B1T7,aGRSTAT sSET BIT 7 

MOV @GRSTAT,$BDDAT READ RESULT 

CMP SGDDAT,$BDDAT ; COMPARE 

BEQ TST20 ;:BR IF EQUAL 

ERROR 1 sERROR, BIT 7 FAILED TO SET 


Sp eeeeaeeeeeeeeeeeeee eke eee eee eee eee AeA eee eee TAA 


s*TEST 20 TEST INPUT INTERRUPT ENABLE 


Py eeteeaeeeeeereeeeeeeeeeee eee eee eee eter 


TST20: SCOPE 


CLR QGRSTAT ;CLEAR STATUS 

MOV #BIT6,$GDDAT ;LOAD EXPECTED 

MOV #B1T6,aGRSTAT sSET BIT 6 

MOV AGRSTAT,SBDDAT sREAD RESULT 

CMP S$GDDAT,$BDDAT 3; COMPARES 

BEQ TST21 3:BR IF EQUAL 

ERROR 1 ERROR, BIT 6 FAILED TO SET 
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000004 


000040 


140300 
174552 


002000 


000036 
007200 


174520 
177777 


001124 


174444 
177777 
177777 
001444 
001124 
174406 
001444 
001124 


001160 


174560 
001126 


174264 
001102 


174510 


174500 
001126 
001126 
001126 


174434 
001124 
001124 
174414 
001126 
001126 
001126 
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T21 


,;eeererererererrerererererereeerererererenekenereneetereeeeeteReee 


eTEST 21 


,;eterereeeeererereeeeeterererereetereeeeeeeeeReeeeeeeAeeeeeeeeee 


TEST EXTERNAL TRANSFERS = CABLE MUST BE CONNECTED 


SCOPE 
MO 


BEQ 
ERROR 


eTEST 22 


,eteerareerrereeeetweeeeteeeeeeeeeeeeeeeeeheeeeeeeteeteneeeeenese 


TEST SWITCH BIT 

;BRANCH IF DOWN 

;LOAD NEW TEST NUMBER 

sBYPASS SOME TEST USING THE EXTERNAL CABLE 


:CLEAR OUTPUT REGISTER 
sCLEAR INPUT 

;CLEAR EXPECTED 

;LOAD THE OUTPUT 

+ READ THE INPUT 


igi22: 


18: 


4 pei eeeeeeeeeeeereeeeeeeeeeeeeee eee eee etek eee eee 


SCOPE 


B 
ERROR 


SeTEST 23 


petretaeeeeeeerrereeeeeeeeee eee eee eeeeeeeeeeeAeeeeeterete 


1$123: 


B 
ERROR 


C 
31-AUG-79 GE 17 
TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER 


TEST THAT RESET CLEARS THE DIGITAL STATUS REGISTER 


peteeereererrerererererereeeeeeeereeKeeeeReeeeeeeeeeeeneeeeeeees 


igi2: 


#40, STIMES 
etd y 


13 


:05 PA 


3:00 40 ITERATIONS 


;CLEAR STATUS 
;LOAD EXPECTED 


$GDD 
sits: B1T14!BIT7!BIT6,aGRSTAT 


OGRSTAT,SBDDAT 
TST22 


1 


a 
#36,$TSTNM 
DRT21 


a@GROD10 
Ee 


QGRDAI ,SBDDAT 
ODDJMP , $BDDAT 
$GDDAT , SBDDAT 
TST23 


S 
2 


;7BR IF 


TEST INPUT WITH #-1 


aGRDIC 
#-1,aGRDAI 
#-1,SGDDAT 
ODDJMP ,SGDDAT 
SGDDAT ,aGRDIO 
@GRDAI , SBDDAT 
ODDJMP ,SBDDAT 
SGDDAT, $BDDAT 
TST24 


2 


3 3BR IF 


;READ RESULT 

F EQUAL 
sERROR, RESET FAILED TO CLEAR DIGITAL 
STATUS REGISTER 


MASK 
; COMPARE 


EQUA 
ERROR, 


sCLEAR OUTPUT REGISTER 


;CLEAR INPUT 
:LOAD EXPECTED 


SK 
LOAD THE OUTPUT 


a INPUT 
MASK 
: COMPARE 


EQUAL 
ERROR, 


INPUT DID NOT EQUAL THE OUTPUT REG. 


INPUT DID NOT EQUAL THE OUTPUT 


SEQ 0028 


3 
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CZORGE.P11 §31-AUG-79 11:23 124 TEST INPUT WITH #52525 SEQ 0029 
897 s,eeeerrererrerrerererererrrererererrreReeteneteeeeReeererereeeee 
(3) S*TEST 26 TEST INPUT WITH #52525 
(3) ,, °eteeerererereerrreerererererereeeereteteneeeeeteeeeeeeAteteees 
(2) 005026 000004 TS124: SCOPE 
898 005030 005077 174360 CLR @GRDIO sCLEAR OUTPUT REGISTER 
005034 012777 177777 174350 MOV #-1,aGRDAL [CLEAR INPUT 
005042 012737 052525 001124 MOV #52525 ,SGDDAT [LOAD EXPECTED 
901 005050 043737 001444 001124 BIC ODDJMP. $GDDAT + PMASK 
902 005056 013777 001124 174330 MOV SGDDAT,aGRDIO ;LOAD THE OUTPUT 
903 5064 017737 174322 001126 MOV QGRDAI ,SBDDAT ;READ INPUT 
904 005072 0463737 001444 001126 BIC ODDJMP. $RDDAT ‘MASK 
905 005100 023737 001124 001126 CMP SGDDAT,SBDDAT ; COMPARE 
005106 001401 BEO TST25 ;7BR IF EQUAL 
+ 34 005110 104002 ERROR 2 ;ERROR, INPUT DID NOT EQUAL OUTPUT 
909 ; etek eereeerereeereeeeereteeeeeeeeeeeeeeeeReeeeeeeeeeeeeeeeeeee 
(3) s*TEST 25 TEST INPUT WITH #125252 
(3) LP, eteererererererrrreererraeeeeeeteeeteeeeeeeeaeeeneeeeeeeeeeeeeee 
(2) 005112 000004 $§125: SCOPE 
910 005114 005077 174276 CLR aGRD10 :CLEAR OUTPUT REGISTER 
911 005120 012777 177777 174264 MOV #-1,aGRDAI ;CLEAR INPUT 
912 005126 012737 125252 001124 MOV #125252, $GDDAT [LOAD EXPECTED 
913 005134 043737 001444 001124 BIC ODDJMP,$GDDAT > MASK 
914 005142 013777 001124 174244 MOV SGDDAT,aGRDIO ;LOAD THE OUTPUT 
915 005150 017737 174236 001126 MOV QGRDAL . SBDDAT [READ INPUT 
916 005156 043737 001444 001126 BIC ODDJMP, SBDDAT > MASK 
917 005164 023737 001124 001126 CMP SGDDAT .$BDDAT ‘ COMPARE 
918 005172 001401 BEQ TS126 ;:BR IF EQUAL 
919 005174 104002 ERROR 2 sERROR, INPUT DID NOT EQUAL OUTPUT 
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DRII-K LOGIC TEST 
CZDRGE.P11 = 31-AUG-79 11:23 126 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS SEQ 0030 
921 ;,eererrererrrrereererererrereererrererenehenetetenerereeeeeeeeee 
(3) Z*TEST 26 TEST THE NEG. AND TRANSITION LATCHING INPUT DATA BITS 
(3) ;,eereeererererererereererererereeerereneeeeeeteneeeneeeeeeeeeeee 
(2) 005176 000004 18126: SCOPE 
(1) 005200 012737 000001 001160 MOV = #1, STIMES ;;D0 1 ITERATION 
922 005206 005737 001444 TST ODDJMP ;TEST IF ANY ODD JUMPERS 
923 005212 001461 BEQ TS127 ;;BR IF NONE 
924 005214 012737 010000 001124 MOV #81112, $GDDAT :LOAD TEST BIT 
925 005222 033737 001444 001124 18: BIT ODDIMP,$GDDAT TEST IF ODD JUMPER BIT 
926 005230 001447 BEQ = $ BR IF NOT 
927 005232 033737 001420 001124 BIT NOTLCH, SGDDAT TEST IF LATCHING INPUT BIT 
928 005240 001043 BNE 2$ :BR IF NOT 
929 005262 013777 001124 174144 MOV = $GDDAT , aGRDIO LOAD OUTPUT 
005250 012777 177777 1741364 MOV —s- #=1 ,@GRDAI CLEAR INPUT 
931 005256 043777 001124 174130 BIC $GDDAT,aGRDIO :CLEAR OUTPUT BIT 
932 005264 017737 174122 0061126 MOV = AGRDAI. SBDDAT READ INPUT REG 
933 005272 023737 001124 001126 CMP = $GDDAT, SBDDAT ; COMPARE 
934 005300 001401 BEQ 3$ BR 1F EQUAL 
935 005302 104002 ERROR 2 ERROR, NEG. INPUT OR NEG. TRANSITION 
956 ; INPUT BIT FAILED TO SET INPUT REGISTER 
938 005304 033737 001124 001446 38: BIT SGDDAT,MINSIN ;TEST IF NEG. INPUT BIT 
939 005312 001016 BNE 2$ :BR IF 
940 005314 012777 177777 174070 MOV #-1,QGRDAL CLEAR INPUT 
941 005322 053777 901124 174064 BIS  $GDDAT, aGRDIO LOAD OUTPUT 
942 005330 017737 174056 001126 MOV  —- @GRDAI, SBDDAT READ INPUT 
943 005336 023737 001124 001126 CMP = $GDDAT, SBDDAT : COMPARE 
944 005344 001401 BEQ 2$ BR IF EQUAL 
945 005346 104002 ERROR 2 ERROR, POSITIVE INPUT TRANSITION 
946 :LOGIC FAILED TO SET INPUT REGISTER B11 
4 
948 005350 006137 001124 2s: ROL SGDDAT CHANGE DATA PATTERN 
949 005354 103322 BCC 1$ BR IF MORE DATA 
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CZDRGE.P11 —-31-AUG-79 11:23 127 FLOAT A 1 ACROSS NON=LATCHING INPUT BITS SEQ 0031 
951 : sipdinabhepuntiontabendaeantecetidensiensevesoceienenenintentel 
(3) Z*TEST 27 FLOAT A 1 ACROSS NON-LATCHING INPUT BITS 
(3) ;, eeeeererereererrererereeeeeeeeereeeeeeeeeeeeeeereeeteeeeteReeee 
(2) 005356 000004 18127: SCOPE 
952 005360 012757 005406 001110 MOV =—s-« #2, SLPERR LOAD ERROR SCOPE RETURN 
954 005366 012737 000001 001440 MOV =: #BITO, BRLEV2 ;LOAD EXPECTED 
955 005374 013737 001420 001442 MOV = NOTLCH, BRLEV3 GET NON-LATCH 
956 005402 005137 001442 COM ss BRLEV3 : COMPLEMENT 
957 005406 013737 001440 001124 28: MOV = BRLEV2,, SGDDAT LOAD GOOD 
958 005414 033737 001124 001444 BIT SGDDAT ODD IMP TEST IF ODD JUMPER 
959 005422 001042 BNE 1$ BYPASS IF ODD JUMPER 
960 005424 033737 001124 001420 BIT SGDDAT,NOTLCH TEST FOR NON-LATCH 
961 005432 001436 BEQ 1$ :BR IF LATCHING 
963 005434 013777 001124 173752 mov SGDDAT.@GRDIO ;LOAD OUTPUT 
964 005442 017737 173744 001126 MOV —- AGRDAI_, SBODAT READ INPUT 
965 005450 043737 001442 001126 BIC BRLEV3,$BDDAT MASK TO LATCH BITS 
966 005456 023737 001124 001126 CMP = $GDDAT, SBDDAT : COMPARE 
967 005464 001401 BEQ 3$ :;BR IF EQUAL 
968 005466 104002 ERROR 2 ; INPUT REGISTER IN ERROR 
369 :WAS CORRECT LATCH/NON=LATCH SUPPLIED ? 
; 9a ;SUB-TEST CLEAR THE OUTPUT BIT AND TEST THE INPUT DOES NOT LATCH 
973 005470 043777 001124 173716 38: BIC SGDDAT,aGRDIO ;CLEAR OUTPUT BIT 
974 005476 017737 173710 001126 MOV @GRDAI , SBDDAT READ INPUT 
975 005504 043737 001442 001126 BIC BRLEV3,SBDDAT :MASK TO LATCH BITS 
976 005512 005037 001124 CLR $GDDAT CLEAR EXPECTED 
977 005516 033737 001440 001126 BIT BRLEV2,$BDDAT TEST FOR BIT 
978 005524 001401 BEQ 1$ :;BR IF CLEARED 
979 005526 104002 ERROR 2 ;INPUT BIT LATCHED IN ERROR 
980 ZWAS CORRECT LATCH/NON-LATCH SUPPLIED ? 
981 
982 005530 006337 001440 1$: ASL BRLEV2 CHANGE PATTERN 


983 005534 0061324 BNE ef BR UNTIL DONE 
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FLOAT A 1 ACROSS LATCHING INPUT BITS SEQ 0032 
;, eererrererrrreerererrererereeeeeTereeeeeeeeeeeeeeeeeeteeeTeeEs 
s*TEST 30 FLOAT A 1 ACROSS LATCHING INPUT BITS 
;,eeterrerererterreeereterereeeeeeeereeReeeer eee eeeeeeeeeeeee 
TST30: SCOPE 

MOV #2$,S$LPERR ;LOAD ERROR SCOPE RETURN 

MOV #B1TO,SGDDAT sLOAD EXPECTED VALUE 

CLR @GRDIO ;CLEAR OUTPUT REG 

MOV #-1,aGRDAI ;CLEAR INPUT 
2s: BIT SGDDAT,NOTLCH 7 TEST FOR NON-LATCHING 

BNE 1$ ;BR IF NON-LATCH 

BIT $GDDAT,ODDUMP ;TEST IF ODD JUMPER 

BNE 1$ ;BYPASS IF ODD JUMPER 

MOV $SGDDAT,aGRDIO ;LOAD OUTPUT 

CLR aGRDIO ;CLEAR OUTPUT REGISTER 

MOV AGRDAI ,SBDDAT ;READ INPUT REG. 

CMP SGDDAT, SBDDAT : COMPARE 

BEQ 1$ 3;BR IF EQUAL 

ERROR 2 s INPUT REGISTER FAILED TO LATCH DATA 
1$: BIS S$GDDAT ,aGRDA! :CLEAR INPUT BIT 

ASL $SGDDAT CHANGE PATTERN 

BNE 2$ ;BR UNTIL DONE " 
;, terete eeeerrerereeeeeereeeeeeete eee Eee ereneteteneee 
s*TEST 31 FLOAT A 0 ACROSS LATCHING INPUT BITS 
settee eeeeerereerereeteereeeereeeeeeeeeeeeKeReteeeeeeeeteeeeeee 
TS131: SCOPE 

MOV #2$, S$ PERR ;LOAD ERROR SCOPE RETURN 

MOV #B1T0,BRLEV3 ;LOAD EXPECTED 

CLR aGRDIO sCLEAR OUTPUT REGISTER 

MOV #-1,aGRDAI sCLEAR INPUT 
23: BIT BRLEV3,NOTLCH TEST FOR LATCHING 

BNE 1$ ;BR IF NOT 

BIT $GDDAT ,ODD UMP ;TEST IF ODD JUMPER 

BNE 1$ ;BYPASS IF ODD JUMPcR BIT 

MOV #-1,$GDDAT LOAD 

BIC NOTLCH, $GDDAT 

BIC BRLEV3,$GDDAT 7MAKE BRLEV3 

MOV $GDDAT,aGRDIO sLOAD OUTPUT 

CLR aGRDIO ;CLEAR OUTPUT REGISTER 

MOV QGRDAI,SBDDAT READ INPUT 

CMP $GDDAT,SBDDAT . ; COMPARE 

BEQ 1$ 77BR IF EQUAL 

ERROR 2 yINPUT REGISTER FAILED TO LATCH DATA 
1$: BIS BRLEV3,aGRDAI ;CLEAR INPUT BIT 

ASL BRLEV3 > CHANGE PATTERN 

BNE 2$ ;BR UNTIL DONE 
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1:23 132 TEST FOR SLOW INPUT GATES WITH #125252 


peerereereerererrrrerererererereeeeeeeeteneeeereeeeeeeetetereeete 
PeTEST 32 TEST FOR SLOW INPUT GATES WITH #125252 
;etearererererereeereeeetereeeeeeseeteeeeeeeteeeeteneteeeeeteeet 
006014 000004 18132: SCOPE 
006016 012737 125252 001124 MOV #125252, $GDDAT ;LOAD EXPECTED 
006024 043737 001420 001124 BIC NOTLCH, $GDDAT : CONVERT 
32 043737 001444 001124 BIC ODDIJMP,$GDDAT MASK 
006040 013700 001124 MOV SGDDAT.R [LOAD PATTERN 
006044 005077 173344 CLR @GRDIO :CLEAR OUTPUT REGISTER 
006050 012777 177777 173334 MOV #-1,QGRDAL ZCLEAR INPUT 
006056 010077 173332 MOV RO,aGRDIO ;LOAD OUTPUT 
006062 005077 173326 CLR aGRDIO ZCLEAR OUTPUT REGISTER 
006066 017701 173320 MOV @GRDAI ,R1 ;READ INPUT 
006072 050177 173314 BIS R1,aGRDAL ZCLEAR INPUT 
006076 005100 COM RO 
006100 010077 173310 MOV RO, aGRDIO ;LOAD OUTPUT 
006104 005077 173304 CLR @GRDIO :CLEAR OUTPUT REGISTER 
006110 017701 173276 MOV GRDAI RI ;READ INPUT 
006114 050177 173272 BIS R1,aGRDAI :CLEAR INPUT 
006120 005100 COM RO 
006122 010077 173266 MOV RO. @GRDIO ;LOAD OUTPUT 
006126 005077 173262 CLR GRDIO ;CLEAR OUTPUT REGISTER 
006132 017701 173254 MOV SCRDAI, RI ;READ INPUT 
006136 050177 173250 BIS R1,aGRDAI ZCLEAR INPUT 
006142 005100 COM RO 
006144 010077 173244 MOV RO,aGRDIO ;LOAD OUTPUT 
006150 005077 173240 CLR aGROIO ZCLEAR OUTPUT REGISTER 
006154 017701 173232 MOV GRDAI RI ;READ INPUT 
006160 050177 173226 BIS R1,aGRDAI ZCLEAR INPUT 
006164 005100 COM RO 
006166 010077 173222 MOV RO,a@GRDIO ;LOAD OUTPUT 
006172 005077 173216 CLR aGRDIO :CLEAR OUTPUT REGISTER 
006176 017701 173210 MOV QGRDAI RI ;READ INPUT 
006202 050177 173204 BIS R1,aGRDAL ZCLEAR INPUT 
006206 005100 COM RO 
006210 010077 173200 MOV RO,@GRD1O ;LOAD OUTPUT 
006214 005077 173174 CLR aGRDIO :CLEAR OUTPUT REGISTER 
006220 017701 173166 MOV GRDAI RI ;READ INPUT 
006224 050177 173162 BIS R1,aGRDAI :CLEAR INPUT 
006230 005100 COM RO 
006232 010077 173156 MOV RO.aGRD1O ;LOAD OUTPUT 
006236 005077 173152 CLR aGRD1IO :CLEAR OUTPUT REGISTER 
006242 017701 173144 MOV QGRDAI RI ;READ INPUT 
006246 050177 173140 BIS R1,aGRDAI ZCLEAR INPUT 
006252 005100 COM RO 
006254 010077 173134 MOV RO,aGRDIO ;LOAD OUTPUT 
006260 005077 173130 CLR aGRDIO :CLEAR OUTPUT REGISTER 
006264 017701 173122 MOV aGRDAI,R1 :READ INPUT 
006270 050177 173116 BIS R1,aGRDAI ZCLEAR INPUT 
006274 005100 COM RO 
006276 010077 173112 MOV RO,aGRDIO ;LOAD OUTPUT 
006302 005077 173106 CLR aGRDIO :CLEAR OUTPUT REGISTER 
006306 017701 173100 MOV QGRDAI RI [READ INPUT 
006312 050177 173074 BIS R1,aGRDAL ZCLEAR INPUT 


SEQ 0035 
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CZORGE .P11 31-AUG-79 1 TEST FOR SLOW INPUT GATES WITH #125252 SEQ 0034 
(1) 006316 005100 COM RO 
(1) 006320 019077 173070 MOV RO,aGRDIO LOAD OUTPUT 
(2) 006324 005077 173064 CLR aGRDIO ;CLEAR OUTPUT REGISTER 
(1) 006330 017701 173056 MOV @GRDAI RI sREAD INPUT 
(1) 0063 050177 173052 BIS R1,@GRDAI :CLEAR INPUT 
(1) 006340 005100 COM RO 
(1) 006342 010077 173046 MOV RO,aGRDIO ;LOAD OUTPUT 
(2) 006346 005077 173042 CLR @GRDIO ;CLEAR OUTPUT REGISTER 
(1) 006352 017701 173034 MOV @GRDAI ,R1 sREAD INPUT 
(1) 006356 050177 173030 BIS R1,@GRDAI ;CLEAR INPUT 
1050 006362 005100 COM RO 
1051 006364 010137 001126 MOV R1,$BDDAT LOAD READ 
1052 006370 000240 NOP 
1053 006 000240 NOP 
1054 006374 000240 NOP 
1055 006376 023737 001124 001126 CMP SGDDAT,S$BDDAT ; COMPARE 
1056 006404 001401 BEQ TS133 ;;BR IF EQUAL 
+ £44 006406 104002 ERROR 2 INPUT GATE SLOW 
1059 cs eeereeereeeeeeereereeeeetereteeeeee eee eeees 
(3) *TEST 33 TEST FOR SLOW INPUT GATES WITH #52525 
(3) 4 ;erreereeeeeeeeee eee eee eee eee eee eee eee eee eee eee 
m +34 006410 000004 1$133: SCOPE 
1061 006412 012737 052525 001124 MOV #52525, $GDDAT SETUP EXPECTED 
1062 006420 043737 001444 001124 BIC ODDJMP ,$GDDAT MASK ODD JUMPER BITS 
1063 006426 043737 001420 001124 BIC NOTLCH,$GDDAT ; CONVERT 
1064 006434 013700 001124 MOV $SGDDAT,RO 
1065 006440 005077 172750 CLR @GRDIO ;CLEAR OUTPUT REGISTER 
ont 006444 012777 177777 172740 MOV #-1,aGRDAI ;CLEAR INPUT 
074 006452 010077 172736 MOV RO,aGRD1O ;LOAD OUTPUT 
(2) 006456 005077 172732 CLR aGRDIO sCLEAR OUTPUT REGISTER 
(1) 006462 017701 172724 MOV QGRDAI ,R1 sREAD INPUT 
(1) 0064 050177 172720 BIS R1,aGRDAI CLEAR INPUT 
(1) 006472 005100 COM RO 
(1) 006674 010077 172714 MOV RO,aGRD1O ;LOAD OUTPUT 
(2) 006500 005077 172710 CLR a@GRD1O ;CLEAR OUTPUT REGISTER 
(1) 006504 017701 172702 oo MOV OGRDAI RI :READ INPUT 
(1) 006510 050177 172676 BIS R1,aGRDAI ;CLEAR INPUT 
(1) 006514 005100 COM RO 
(1) 006516 010077 172672 MOV RO,a@GRDIO ;LOAD OUTPUT 
(2) 006522 005077 172666 CLR @GRD1O :CLEAR OUTPUT REGISTER 
(1) 006526 017701 172660 MOV @GRDAI,R1 sREAD INPUT 
(1) 006532 050177 172654 BIS R1,aGRDAI ;CLEAR INPUT 
(1) 5 005100 COM RO 
(1) 006540 010077 172650 MOV RO,aGRD1O ;LOAD OUTPUT 
(2) 006544 005077 172644 CLR aGRDIO ;CLEAR OUTPUT REGISTER 
(1) 006550 017701 172636 MOV OGRDAI ,R1 sREAD INPUT 
(1) 006554 050177 172632 BIS R1,aGRDAI CLEAR INPUT 
(1) 006560 005100 COM RO 
(1) 006562 010077 172626 MOV RO, aGRDIU ;LOAD OUTPUT 
(2) 006566 005077 172622 CLR a@GRDIO sCLEAR OUTPUT REGISTER 
(1) 006572 017701 172614 MOV @GRDAI ,RI sREAD INPUT 
(1) 006576 050177 172610 BIS R1,aGRDAI :CLEAR INPUT 
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CZDRGE .P 31-AUG-79 11:2 TEST FOR SLOW INPUT GATES WITH #52525 SEQ 0035 

(1) 006602 005100 COM RO 
(1) 006604 010077 172604 MOV RO,aGRDIO ;LOAD OUTPUT 
(2) 006610 005077 172600 CLR aGRD10 ;CLEAR OUTPUT REGISTER 
(1) 006614 017701 172572 MOV @GRDAI RI sREAD INPUT 
(1) 006620 050177 172566 BIS R1,@GRDAI CLEAR INPUT 
(1) 006624 005100 COM RO 
(1) 006626 010077 172562 MOV RO,aGRDIO ;LOAD OUTPUT 
(2) 006632 005077 172556 CLR aGRDIO :CLEAR OUTPUT REGISTER 
(1) 006636 017701 172550 MOV @GRDAI ,R1 sREAD INPUT 
(1) 006642 050177 172544 BIS R1,@GRDAI CLEAR INPUT 
(1) 006646 005100 COM RO 
(1) 006650 010077 172540 MOV RO,@GRDIO LOAD OUTPUT 
(2) 006654 005077 172534 CLR @GRDIO ;CLEAR OUTPUT REGISTER 
(1) 006660 017701 172526 MOV @GRDAI ,R1 sREAD INPUT 
(1) 006664 059177 172522 BIS R1,aGRDAI ;CLEAR INPUT 
(1) 006670 005100 COM RO 
(1) 006672 0100 172516 MOV RO,@GRDIO ;LOAD OUTPUT 
(2) 006676 005077 172512 CLR @GRD10 :CLEAR OUTPUT REGISTER 
(1) 006702 017701 172504 MGV @GRDAI,R1 ;READ INPUT 
(1) 006706 050177 172500 BIS R1,QGRDAI ;CLEAR INPUT 
(1) 006712 005100 COM RO 
(1) 006714 010077 172474 MOV RO,aGRDIO ;LOAD OUTPUT 
(2) 006720 005077 172470 CLR @GRDIO :CLEAR OUTPUT REGISTER 
(1) 006724 017701 172462 MOV @GRDAI RI sREAD INPUT 
(1) 006730 050177 172456 BIS R1,@GRDAI CLEAR INPUT 
(1) 006734 005100 COM RO 
(1) 006736 010077 172452 MOV RO,@GRDIO LOAD OUTPUT 
(2) 006742 005077 172446 CLR @GRDIO ;CLEAR OUTPUT REGISTER 
(1) 006746 017701 172440 MOV OGRDAI,R1 sREAD INPUT 
(1) 006752 050177 172434 BIS R1,aGRDAI :CLEAR INPUT 

mi! 006756 005100 COM RO 

1076 006760 010137 001126 MOV R1,$BDDAT ;LOAD VALUE READ 

1077 006764 000240 NOP 

1078 006766 000240 NOP 

1079 006770 000240 NOP 

1080 006772 023737 001124 001126 CMP $GDDAT, $BDDAT ; COMPARE 

1081 007000 001401 BeQ TS134 7;BR IF EQUAL 


E 
1082 007002 104002 ERROR 2 





CZORGE.P11 


(2) 007004 


9 
1 
2 
3 007060 
5 


(2) 007062 
1096 007064 






007126 
007130 


007132 
007134 


007176 


Sudunw~Osbrc wears 


OUWVFwWwnr—O O@w~w ~~ “nOUFIWHR— 


31-AUG-79 11:23 


000004 


104002 


000004 


104001 


000004 


104001 


000040 
172374 
177777 
177777 
001124 


172344 
001444 


000200 


001124 


100000 
172242 
000000 
000000 
172224 
172216 


DRII-K LOGIC TEST MAINDEC-11-CZDRG-E 


001160 


172364 
172360 


001124 
172310 


001126 


001124 


172240 
000000 


001126 


MACY11 3 
134 


;, eeeeereeeeeeeetreeereterereeeeereeekenereeKeeeteeeeeeeeeeeeeeTe 


TEST THAT RESET CLEARS INPUT REGISTER BITS 


;,eeeeeeeeeteeeeeeeeee teeter eee eee eee KeeKeeeeeeeeKeetAA ee 


'~~Et tee eRe RRRRRRRRESSASASESASEE SES REESE SEER RES E REESE AERO 


TEST THAT WHEN OUTPUTTING THE INPUT DATA READY FLAG SETS 


'WEeAGLAAAAAAARBALAARASLSALASESSRSESESESSESE RES SSE RSE E ESR E SSSR REE 
















s*TEST 34 

TST34: SCOPE 
MOV #40,STIMES 
CLR aGRDIO 
MOV #-1,aGRDAI 
MOV #-1,aGRD10 
CLR $GDDAT 
RESET 
MOV @GRDAI ,SBDDAT 
BIC ODDJMP ,$BDDAT 
BEQ 18135 
ERROR 

s*TEST 35 

TST35: SCOPE 
MOV #B1T7,$GDDAT 
CLR aGRSTAT 
MOV #0,aGRD10 


:*TEST 36 


TS136: 


MOV QGRSTAT ,SBDCAT 
CMP $GDDAT, $BDDAT 
BEQ TST36 
ERROR 1 


SCOPE 
MOV #B1T15,$GDDAT 
CLR @GRSTAT 
MOV #0,aGRD10 
#0,#0 
@GRDAI ,RO 
MOV OGRSTAT,S$BDDAT 
BMI 1$137 
ERROR 1 


: 2 
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TEST THAT RESET CLEARS INPUT REGISTER BITS 


::D0 40 ITERATIONS 


ssGR if 


ssBR IF 


3 BR IF 


;CLEAR CUTPUT REGISTER 
:CLEAR INPUT 

;LOAD OUTPUT 

;LOAD EXPECTED 


;READ INPUT REG. 
MASK ODD JUMPERS 
ALL BITS CLEARED 


SEQ 0036 


: INPUT REG. FAILED TO CLEAR UPON RESET INST. 


;LOAD EXPECTED 
;OUTPUT 0 

: DELAY 

READ RESULTS 
; COMPARE 

EQUAL 


; INPUT DATA READY FLAG FAILED 10 SET 
TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 


SCRA eA Ke KAKA 


TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 


SSR eeee eee eee ee eee eee eee eee eee Kee Kee Kee 


;LOAD EXPECTED 


READ INPUT 
;READ RESULTS 
SET 


; INPUT DATA READY FLAG FAILED 10 SET 
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PAGE 24 
TEST THAT WHEN THE INPUT BUFFER IS READ THE OUTPUT FLAG IS SET 


FREER ERE EEE EEE AEA AAT AAARARKAEeeKeAeeKeeeeee 


T*TEST 37 TEST FOR UNEXPECTED INTERRUPT 


WEA ASAAAAASAAASASALERASASESESLLASE EEE EE SEE SEER ERS R RRSP CERES 


18137: 


1$: 
2s: 


MOV #40,STIMES ;:D0 40 ITERATIONS 
RESET 

CLR @GRSTAT 

CLR SW 


Pp 
MOV #1$,aGRIVA 
MOV #340 ,aGRIVSA 
MOV #2$,aGRIVB 
MOV #340, aGRIVSB 


SET UP INTERRUPT INPUT VECTOR 
;SET UP INTERRUPT OUTPUT VECTOR 


MOV #0,aGRDIO s OUTPUT 

MOV AGRDAI,RO : INPUT 

NOP 

NOP 

NOP 

NOP 

CLR aGRSTAT sCLEAR STATUS 

BR TST40 i3 

6 sERROR, DIGITAL INPUT INTERRUPTED 
Te 6 sERROR, DIGITAL OUTPUT INTERRUPTED 


SERRA RAAT KR eee eee 


TEST 40 TEST THAT THE INPUT CAN INTR. USING THE MAINT. BIT 


STREET eee TTA KKK e 


TST40: 


SCOPE 

CLR @GRSTAT sCLEAR STATUS 

MOV #1$,aGRIVA ;LOAD RETURN VECTOR 
MOV #340 ,aGRIVSA : 

MOV #2$,aGRIVB ;LOAD OUTPUT VECTOR 
MOV #340, aGRIVSB 


BIS #B115,aGRSTAT :MAINT. INT C 

CLR PSW SLOWER PSW 

NOP 

NOP 

ERROR 4 sERROR, INPUT FAILED TO INTERRUPT 
R O NEXT TEST 


B TST41 ;:BR T 
;SUB-TEST, TEST THAT IF PSW 1S LOWERED AGAIN NO INTERRUPT WILL OCCUR 
; IF INTERRUPT OCCURS ‘INT DONE C* FAILED TO CLEAR INT C FLOP 


1$: 


2$: 





MOV #2$,QGRIVA ;LOAD INPUT VECTOR 


CMP (SP)+, (SP)+ POP THE STACK *4 

CLR PSW ;LOWER PRIOR. 

NOP 

NOP 

BR TST41 32 <NEXT TEST> 

CMP (SP)+, (SP) + :POP THE STACK 

ERROR 6 sUNEXPECTED INTERRUPT 
CLR PSW 
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25 
TEST THAT THE INPUT INTR. CLEARS INT. ENABLE VIA MAINT. BIT 


SRA RRAAR ARETE eee Kee Tee eee eee KeeKeKKAeeKeteeeeTee eee Tee 


s*TEST 41 


TEST THAT THE INPUT INTR. CLEARS INT. ENABLE VIA MAINT. BIT 


EASA AASAAAASASASSALASELL CRSA SE CAS ASSES SATS ATES A TAAL ISS STS eS SY 


1$141: SCOPE 

CLR AGRSTAT 

MOV #1$,aGRIVA 
MOV #346, aGRIVSA 

#2$,aGRIVB 
MOV #340, aGRIVSB 
MOV #B1T6,aGRSTAT 
BIS #B1T5 ,aGRSTAT 


ERROR 4 

#2$,aGRIVA 

CMP (SP)+,(SP)+ 
PSW 


CLR SGDDAT 
MOV QGRSTAT ,SBDDAT 


BIT #B1T6,$BDDAT 

BEQ TST42 ;:BR IF 

ERROR 1 

BR TST42 33 <NEXT 
2$: CMP (SP)+,(SP)+ 

ERROR 6 

CLR PSwW 


CLEAR STATUS 
;LOAD RETURN VECTOR 


SLOAD OUTPUT VECTOR 


;LOAD INPUT INTR. ENABLE 
;MAINT. INT C 
;LOWER PSW 


sERROR, INPUT FAILED TO INTERRUPT 
;LOAD INPUT VECTOR 

;POP THE STACK #4 

;LOWER PRIOR. 

;CLEAR EXPECTED 

;READ STATUS 

;TEST BIT 6 

CLEARED 

; INPUT INTR. FAILED TO CLEAR 
TEST> 

;POP THE STACK 

;UNEXPECTED INTERRUPT 


CAAA EEE EEE TEETER AAA AT AAR 


s*TEST 42 


TEST THAT THE OUTPUT CAN INTR. USING THE MAINT. BIT 


witht tee PRR RRR RRR REPRE SESSA ESES EEE ESE SESE SESE SECC SESE ESOC LSS 


TST42: SCOPE 
CLR AGRSTAT 


MOV #2$,QGRIVA 
MOV #340, ,aGRIVSA 
MOV #1$,aGRIVB 
MOV #340 ,aGRIVSB 
BIS + ala 


RROR 5 


~ 


;CLEAR STATUS =" 
;LOAD INPUT VECTOR 


;LOAD OUTPUT VECTOR 
sMAINT. INTERRUPT 
;LOWER PSW 


;OUTPUT FAILED TO INTERRUPT 


;;BR TO NEXT TEST 


TS143 a3 
;SUB-TEST, TEST THAT IF PSW IS LOWERED AGAIN, NO INTERRUPT WILL OCCUR 
i.” IT + "INT DONE D HIGH’ FAILED TO CLEAR ‘INT D' FLOP 
: V 


2$,aGRIVB 

CMP (SP)+,(SP)+ 

CLR PSW 

NOP 

NOP 

BR TS143 33 <NEXT 
2$: CMP (SP)+,(SP)+ 
; ERROR 6 

CLR PSw 


;LOAD OUTPUT VECTOR 
;POP THE STACK *4 


TEST> , 
:POP THE STACK 
UNEXPECTED INTERRUPT 





SEQ 0038 | 
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1212 sail ppeeeeereererereeerrerereerereereArteeeeneTeee KAR Ae Ae eee ATT 
(3) *TEST 43 TEST FOR INTR. FROM DRA INPUT 
(3) Speeeeeeeeeererereeeeteeertere ere ee rere eee AA ATE ATTRA TET 
(2) 007674 000004 TS1T43: SCOPE 
1213 007676 000240 NOP 
1214 007700 000240 NOP 
1215 007702 032777 002000 171230 BIT #B1T10,aSWR ;TEST SWITCH 
1216 007710 001401 BEQ 1$ 
1217 007712 000463 BR TST44 Hi 
1218 007714 005077 171470 1$: CLR AGRSTAT 
1219 007720 012777 010020 171476 MOV #2$,aGRIVA 7 IN CASE OF INTERRUPT 
1220 007726 012777 000340 171472 MOV #340, oe 
1221 7734 012777 010016 171466 MOV #3$ ,aGRIVB 
1222 007742 012777 000340 171462 MOV #366 aGRIVSB 
1223 775 012777 000100 171432 MOV #B1T6,aGRSTAT sENABLE INPUT INTR. 
1224 007756 012777 000000 171430 MOV #0,aGRD10 : OUTPUT 
1225 007764 017700 171422 MOV @GRDAI ,RO ; INPUT 
1226 007770 005037 177776 CLR PSwW SLOWER PSW 
1227 007774 000240 NOP ;LET INTERRUPT OCCUR 
1228 007776 000240 NOP 
1229 010000 000240 NOP 
1230 010002 042777 000100 171400 BIC #B1T6,aGRSTAT 
1231 010010 000240 NOP 
1232 010012 104004 , ERROR 4 ;ERROR, INPUT FAILED TO INTERRUPT 
1233 010014 000404 BR 4$ i3 
1234 010016 104006 3$: ERROR 6 sUNEXPECTED OUTPUT INTERRUPT 
1235 010020 022626 2$: CMP (SP)+,(SP)+ 
1236 010022 005037 177776 CLR PSW 
1237 010026 005077 171356 4$: CLR QGRSTAT :CLEAR STATUS 
1238 010032 012777 003076 171364 MOV MUNEXPT ,AGRIVA ;RESET INPUT VECTOR 
(1) 010040 012 000340 171360 MOV #340,aGRIVSA . 
(1) 010046 012777 003076 171354 MOV #UNEXPT ,AGRIVB sRESET OUTPUT VECTOR 
mt 010054 012777 000340 171350 MOV #340,aGRIVSB 


aes 
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005077 


105777 
100401 
104010 


043777 


104001 


006337 
001317 


002000 


010110 


000200 
001442 


171256 
177777 


001442 
171212 


171206 


001442 


001442 
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171046 
001110 
001442 
001124 
001422 
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144 TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 


,;eeterererrerrrrrereeeerrererereeeeeereeeAeeneteneeeteeeeereeeete 


:#TEST &4 


iét44: 


23: 


3$: 


SCOPE 
BIT 
BNE 


8 
31-AUG-79 13: 05 


TEST THAT INTERRUPT INPUT BITS SET INPUT READY FLAG 


;eeeererererrereereeeretererereeteeeeeeeeeeeeeeAteeeeeReneteeeee 


sTEST CABLE SWITCH 
;;BYPASS IF NO 1/0 CABLE 


;LOAD ERROR er eiT 


#BITIO, ewe 
TST45 

#1, SLPERR 
#8110, BRLEVS 
SBDDAT 
#B1T7,$GDDAT 
BRLEVS,INTBIT 
3$ 


BRLEV3,aGRDIO 
BRLEV3,aGRD10 
BRLEV3,aGRD10 
@GRSTAT 


OGRSTAT 
2$ 
10 


BRLEV3,aGRDI10 
BRLEV3,aGRDAI 
SGDDAT 
@GRSTAT 
ete aertae 


1 
BRLEV3S 
1$ 


;LOAD INTERRUPT 
:CLEAR BAD DATA 
:LOAD GOOD DATA 


sTEST IF THIS BIT WILL INTERRUPT 


3:NO TRY NEXT BIT 


;CLEAR OUTPUT REGISTER 


:CLEAR INPUT 
sCLEAR STATUS 
;LOAD OUTPUT 
:CLEAR OUTPUT 
;LOAD OUTPUT 


:CLEAR FLAG FROM DATA READY 
;SHOULD REMAIN SET VIA DIRECT SET SIDE 
:1F INTERRUPT INPUT SWITCH IS ON 


TEST READY BIT 


::BR IF SET 
INPUT INTERRUPT BIT FAILED TO SET I" "UT READY 


33BR IF 


:?? DID OPERATOR GIVE CORRECT 
: INPUT INTERRUPT BITS ?? 


:CLEAR OUTPUT 
sCLEAR INPUT 
CLEAR EXPECTED 
:CLEAR STATUS 
READ STATUS 
CLEARED 


: INPUT READY FAILED TO CLEAR 


CHANGE BIT 
;BR IF NOT DONE 
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(2) 010252 000004 
1279 010254 032777 
1See 010262 001050 
1282 010264 012737 
1283 010272 012737 
1284 010300 012737 
= +4 010306 005037 
1287 010312 033737 
1288 010320 001026 
1289 010322 005077 
1290 010326 012777 
1291 0103 005077 
1292 010340 053777 
1293 010346 043777 
1296 010354 053777 
1295 010362 005077 
1296 
1297 010366 105777 
1298 010372 100001 
1299 010374 104011 
1300 


13046 010376 006337 
010402 001336 





002000 


010300 


001124 
001442 


171066 
177777 


171022 
171016 


001442 


EST i) st re CZDRG-E 


170656 


001110 
001442 
001126 


001422 


171056 


171046 
171040 
171032 
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TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 


,eteeererererrererrererterererereeeteeeeeneeeeeerereeerAeeeeeees 


:*TEST 45 


18145: 


1$: 


3$: 





TEST THAT NON-INTERRUPT INPUT BITS DO NOT SET INPUT READY FLAG 


-eereeererrertereereeeeeererereeteeeeeranekeeeeteneeeeeeeeeeeeeee 


#B1T10,aSwR 
TST46 


#1$,SLPERR 
#B110,BRLEVS 
#200 ,SBDDAT 
SGDDAT 


BRLEV3,INTBIT 
3$ 


aGRDIO 
#-1,aGRDAI 
@GRSTAT 
BRLEV3,aGRD10 
BRLEV3,aGRD10 
BRLEV3,aGRD10 
@GRSTAT 


AGRSTAT 
3$ 
11 


BRLEV3 
1$ 


;TEST CABLE SWITCH 


;;BYPASS IF NO 1/0 CABLE 


;LOAD ERROR SCOPE RETURN 
;LOAD NON-INTERRUPT BIT 
;LOAD BAD DATA 

:CLEAR GOOD DATA 


sTEST IF THIS BIT WILL INTERRUPT 


;:YES SKIP AND TRY NEXT BIT 


7 BR IF 





; CLEAR ae REGISTER 


7 SET 
;CLEAR FLAG FROM DATA READY 
;SHOULD REMAIN SET VIA DIRECT SET SIDE 
itie READY BIT 

L 

: INPUT NON-INTERRUPT BIT ire INPUT READY 
;?? DID OPERATOR GIVE CORRE 

SINPUT INTERRUPT BITS ?? 


7; CHANGE BIT 
:BR IF NOT DONE 


dD 4 
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CZDRGE.P11 | 31-AUG-79 11:2 TEST FOR INTR. FROM DRA OUTPUT SEQ 0042 
1307 S ete eeerererererererererereeererereeeeeeeseneteneneeeteeeeeeeeee 
(3) TeTEST 46 TEST FOR INTR. FROM DRA OUTPUT 
(3) ;, eeterererererrererererertererererereteeeeeeeeeeeeeereeReeeeEeee 
(2) 010404 000004 TST46: SCOPE 
1308 010406 000240 NOP 
1309 010410 000240 NOP 
1310 010612 032777 002000 170520 BIT #B1T10,aS0R sTEST SWITCH 4 
1311 010420 001401 BEQ 1$ 
1312 010422 000461 BR TS147 i: 
1313 010424 005077 170760 1$: CLR QGRSTAT 
1314 010430 012777 010524 170772 MOV #2$,aGRIVB SIN°CASE OF INTERRUPT 
1315 010636 012777 000340 170766 MOV #340, aGRIVSB ty 
1316 010644 013777 001426 170752 MOV GRIVSA,a@GRIVA 
1317 010452 005077 170750 CLR QGRIVSA 
1318 010456 012777 040000 170724 MOV #B1T14, aGRSTAT :ENABLE OUTPUT INTR. 
1319 010464 012777 000000 170722 MOV #0,aGRDIO ‘OUTPUT 
1320 010472 017700 170714 MOV QGRDAI RO ‘INPUT 
1321 010676 005037 177776 CLR PS “LOWER PSWw 
1322 010502 000240 NOP :LET INTERRUPT OCCUR 
1323 010504 000240 NOP 
1324 010506 000240 NOP 
1325 010510 042777 040000 170672 BIC #BI1T14,aGRSTAT 
1326 010516 000240 NOP 
1327 010520 104005 ERROR 5 ZERROR, OUTPUT FAILED TO INTERRUPT 
1328 010522 000401 BR 3$ sg 
1329 010524 022626 2$: CMP (SP)+,(SP)¢ 
1330 010526 3$: 
(1) 010526 012777 003076 170670 MOV #UNEXPT ,@GRIVA :RESET INPUT VECTOR 
(1) 010536 012777 000340 170664 MOV #340 ,aGRIVSA 
(1) 010542 012777 003076 170660 MOV #UNEXPT ,aGRIVB :RESET OUTPUT VECTOR 
(1) 010550 012777 0003460 170654 MOV #340, aGRIVSB 
1331 010556 005037 177776 CLR PSw 
1332 010562 005077 170622 CLR |GRSTAT SCLEAR STATUS 
1334 pL tt eetereeereererereerererenereterereeeeeeeneeeeeeeeeenenenteteeee 
(3) eTEST 47 PRE-INTERRUPT SETUP 
(3) P ert earerererereeereeeereteeeeereeetenetetereneeeeeeteneeetesreee 
(2) 010566 000004 1$147: SCOPE 
(1) 010570 012737 000001 001160 MOV #1 STIMES ::D0 1 ITERATION 
1335 010576 000005 RESET 
1336 010600 042737 177637 001434 BIC #177437, D10BRL 
1337 010606 001001 BNE 1$ 
1338 010610 104007 ERROR 7 7BR LEVEL INDICATED FOR DIGITAL 1/0 WAS*0 
1339 010612 022737 000340 001434 1$: CMP #340, D10BRL 
1340 010620 001001 BNE 2s 
1341 010622 104007 ERROR 7 :BR LEVEL INDICATED FOR DIGITAL 1/0 WAS 7? 
1342 010526 013737 001436 001436 2%: MOV DIOBRL .BRLEV! 
1343 010632 162737 000040 001436 SUB #40, BRLEV) 
1344 010660 013737 001434 001440 MOV DIOBRL ,BRLEV2 





E 4 
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CZORGE .P11 31-AuG-79 1 TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED -1 VIA MAINT. INT SEQ 0043 
1346 ;, eteterrererrrrrerrerereererrererereeerereeeeeeeteeeeeeeeeeteeeeee 
(3) s*TEST 50 TEST FOR INTR. FROM DRA INPUT ON LEVEL INDICATED -1 VIA MAINT. INT 
(3) ,,eeeererrerrerrererererrereererererereeeeteeeeeeeeseneeeeerenestes 
(2) 010646 000004 TST50: SCOPE 
1347 010650 005077 170534 CLR QGRSTAT ;CLEAR ENABLES 
1348 010654 012777 010726 170542 MOV #1$,QGRIVA 7SET UP VECTORS 
1349 010662 013737 001436 177776 MOV BRLEV1,PSw > CHANGE PSW 
1350 010670 005737 001452 TST JUMPER sTEST IF FACTORY MODE 
1351 010674 001 BEQ 2$ ;BR IF YES 
1352 010676 012737 000200 177776 MOV #200,PSwW ;LOAD BR LEVEL #5-1 IF LOC-BOxX OR COULTER MODE 
1353 010706 052777 000040 170476 2%: BIS #8115 ,aGRSTAT ;GENERATE INPUT MAINT. INTERRUPT 
1354 010712 000240 NOP 
1355 010714 000240 NoP 
1356 010716 000240 NOP 
1357 010720 000240 NOP 
1358 010722 104004 ERROR 4 sERROR, NO INTERRUPT FROM DIGITAL 1/0 INPUT 
1359 010724 000401 BR 3$ ;;BR TO NEXT TEST 
1360 010726 022626 1$: CMP (SP)4+,(SP)+ 
1361 010730 3$: 
(1) 010730 012777 003076 170465 MOV #UNEXPT AGRIVA ;RESET INPUT VECTOR 
(1) 010736 012777 000340 170462 MOV #340,aGRIVSA 
(1) 010744 012777 003076 170456 MOV #UNEXPT ,AGRIVB ;RESET OUTPUT VECTOR 
(1) 010752 012777 000340 1706452 MOV #340,aGRIVSB 
1362 010760 005037 177776 CLR PSw sLOWER PSwW 
1363 PL eterereererrrrreerrerrereeeeteeet eee eee eee eee 
(3) :*TEST 51 TEST FOR NO INTR. FROM DRA INPUT ON LEVEL INDICATED VIA MAINT. INT 
(3) sot eereerereerereerereeeteeeeee eee ete eee Reena eneeneeeeeeee 
(2) 010764 000004 TST51: SCOPE 
1364 010766 005077 170416 CLR @GRSTAT sCLEAR ENABLES 
1365 010772 012777 011060 170424 MOV #1$,aGRIVA 7SET UP VECTORS 
1366 011000 013737 001440 177776 MOV BRLEV2,PSwW ; CHANGE PSW 
1367 011006 005737 001452 TST JUMPER sTEST IF FACTORY MODE 
1368 011012 0014035 BEQ 4% ;BR IF YES 
1369 011014 012737 000240 177776 MOV #249,PSW ;LOAD BR LEVEL #5 IF LOC-BOX OR COULTER MODE 
1370 011022 052777 000040 170360 4$: BIS #BITS,aGRSTAT :GENERATE INPUT MAINT. INTERRUPT 
1371 011030 000240 NOP 
1372 011032 000240 NOP 
1373 011034 000240 NUP 
1374 ;SUB-TEST, NOW LOWER THE PSwW AND ALLOW THE INTERRUPT 
1375 011036 012777 011072 170360 MOV #2%$,aGRIVA sRESET VECTOR 
1376 0110464 005037 177776 CLR PSWW sLOWER PSwW 
1377 011050 000240 NoP 
1378 011052 000240 NOP 
1379 011054 000240 NOP 
1380 011056 000403 BR 3$ ERROR 
1381 011060 022626 1$: CMP (SP)+*,(SP)¢ 
1382 011062 005037 177776 CLR PS 
1383 011066 104006 3$: ERROR 6 SUNEXPECTED INTERRUPT <IS BR LEVEL PLUG CORRECT> 
1384 011070 000401 Bh 5$ $3 
1385 011072 022626 23: CMP (SP)+,(SP)¢ :POP THE STACK 
1386 011074 S$: 
(1) 011074 012777 003076 170322 MOV MUNEXPT ,AGRIVA sRESET INPUT VECTOR 
(1) 011102 012777 000340 170316 MOV #340,aGRIVSA 
(1) 011110 012777 003076 170312 MOV #UNEXPT AGRIVB sRESET OUTPUT VECTOR 
(1) 011116 012777 000340 170306 MOV #340, aGRIVSB 
1387 011126 005037 177776 CLR PSi 
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1388 
1389 

(3) 

(3) 

(2) 011130 000004 
(1) 011132 012737 
1390 011140 005737 
1391 011146 001415 
1392 011146 032777 
1393 011154 001024 
1394 011156 162737 
1395 011164 062737 
1396 011172 005337 
1397 011176 000413 
1398 011200 013737 
1399 011206 013737 
1400 011214 013737 
1401 011222 000137 
1402 011226 012700 
1403 011252 000137 
1404 
1405 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 011236 

(1) 011236 000004 
(1) 011240 005037 
(1) 011266 005037 
(1) 011250 005237 
(1) 011254 042737 
(1) 011262 005327 
(1) 011264 00 
(1) 011266 003022 
(1) 011270 012737 
(1) 011272 000001 
(1) 011274 011264 
(1) 011276 104401 
(2) 011302 013746 
(2) 011306 104405 
(1) 011310 104401 
(1) 011316 013700 
(1) 011320 001405 
(1) 011322 000005 
(1) 011324 004710 
(1) 011326 000240 
(1) 011330 000240 
(1) 011332 000240 
(1) 0113346 

(1) 011334 000137 
(1) 011336 011226 


000001 
001374 


010000 
000010 
000010 
001374 


001362 


003126 


001102 


10 000 


011343 
001176 


011340 
000042 


001160 


167764 
001376 
001400 


001376 
091400 
001374 


001176 


4 
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FROM DRA INPUT ON LEVEL INDICATED 


F 
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TEST FOR NO INTR. VIA MAINT. INT 


33 eerererererrerrerereerererererererereeeeeeeeeteeeteReeeeeeeeeee 


;#TEST 52 DETERMINE IF MORE DR11-K'S ARE TO BE TESTED 


18152: SCOPE 
MOv #1, STIMES ;;D0 1 ITERATION 

BYPASS: TST NBEXT :TEST IF ANY 
BEQ 1$ BR IF NONE 
BIT #SW12,aSWR TEST BIT12 OF SwR 
BNE BYPAS1 ; INHIBIT TESTING NEXT DRI1-« 
SUB #10, DRADOD s UPDATE DEVICE ADDRESS 
ADD #10,0R1¥ sUPDATE DEVICE VECTOR 
DEC NBEXT ;ANOTHER ONE ? 
BR BYPAS! :BR IF ANOTHER 

1$: MOV BASEBA,DRADD RELOAD ADDRESS 


MOV BASEIV,ORIv 
MOV NMBEXT .NBEXT 
JMP SEOP 

BYPAS1: MOV #-1,R0 
JMP KBEG2 


-SBTTL END OF PASS ROUTINE 


;RELOAD VECTOR 
RELOAD NUMBER 
; DONE 


TEST ANOTHER UNIT 


1 perreerrererrrerererererereeeeetereteeeeeeeeeeteeeeeteeeeeteeeeee 


* INCREMENT THE PASS NUMBER ($PASS) 


:* INDICATE END-OF-PROGRAM AFTER 
(WHERE XXXKXX 1S A DECIMAL NUMBER) 
;*1F THERES A MONITOR GO TO IT 
JUMP TO BYPAS! 


:* TYPE “END PASS @XXXXX"" 
:*1F THERE ISN*T 


1 PASSES THRU THE PROGRAM 


SEOP: 
SCOPE 
CLR STSTNM 3: ZERO THE TEST NUMBER 
CLR Abe 3:ZERO THE NUMBER OF TTERAT IONS 
INC SPA >: INCREMENT THE PASS NUMBER 
BIC #100000, $SPASS ::DON'T ALLOW A NEG. NUMBER 
DEC (PC 3;LOOP? 
SEOPCT: . WORD 1 
BGT $SDOAGN 77 YES 
MOV (PC)+,a(PC)+ >:RES:ORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE  SENDMG sci TYPE “‘END PASS #°° 
MOV $PASS,-(SP) 7; SAVE SPASS FOR TYPEOUT 
TYPDS 3:G0 TYPE--DECIMAL ASCII WITH SIGN 
TYPE . SENULL 7; TYPE A NULL CHARACTER 
$GET42: MOV a#42,R0 3:G®T MONITOR ADDRESS 
EQ SDOAGN ;;BRANCH IF NO MONITOR 
RESET 7;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:G0 TO MONITOR 
NOP Ly ROOM 
NOP 3; FOR 
NOP SD ACTYY 
SDOAGN: 
JMP a(Pl)e > RETURN 
SRITNAD: .WORD BYPAS] 


SEQ 0044 
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ORI1-K LOGIC [EST is bas -11=CZDRG-E MACY11 306(1063) rrr 13:05 PAGE 30-2 
CZDRGE.P11 31-auG-79 1 1:23 END OF PASS ROUTIN SEQ 0045 
(1) 011340 377 377 909 SENULL: .BYTE -1,-1,0 77NULL CHARACTER STRING 
(1) 011343 015 042412 042116 SENDMG: .ASCIZ etipalSovens PASS #/ 
(1) 011350 050060 051501 0206123 
(1) 011356 000043 
1406 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) P er eererererrerrererrrerereerereretereneeteneteeeeeeteteeeeenenee 
(1) ;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) :*SIGNED DECIMAL (ASCII) NUMBER AND TYPE 1T. DEPENDING ON WHETHER THE 
(1) ;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) > *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) > *REPLACED WITH SPACES. 
(1) s®CALL: 
(1) :* MOV NUM, -(SP) 77PUT THE BINARY NUMBER ON THE STACK 
a :e TYPDS ;:G0 TO THE ROUTINE 
(1) 
(1) 011360 $STYPDS: 
(3) 011360 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
(3) 011362 010146 * MOV R1,-(SP) 77PUSH R1 ON STACK 
(3) 011364 010246 MOV R2,-(SP) >;PUSH R2 ON STACK 
(3) 011366 010346 MOV R3,-(SP) 3;PUSH R? ON STACK ‘ 
(3) 011370 010546 MOV R5,-(SP) >;PUSH RS ON STACK 
(1) 011372 012746 020200 MOV #20200,-(SP) 7:SET BLANK SWITCH AND SIGN 
(1) 011376 016605 000020 MOV 20(SP) RS 7:GET THE INPUT NUMBER 
(1) 011402 100004 BPL 1$ 7:BR IF INPUT IS POS. 
(1) 011404 005405 NEG RS 77MAKE THE BINARY NUMBER POS. 
(1) 011406 112766 000055 0009001 MOVB #'=,1(SP) 7:MAKE THE ASCII] NUMBER NEG. 
(1) 011414 005000 1$: CLR RO 3:ZERO THE CONSTANTS INDEX 
(1) 011416 012703 011574 MOV #SDBLK ,R3 :;SETUP THE OUTPUT POINTER 
(1) 011422 112723 000040 MOVB #' ,(R3)¢ >:SET THE FIRST CHARACTER TO A BLANK 
(1) 011426 005002 2$: CLR R2 ;:CLEAR THE BCD NUMBER 
(1) 011430 016001 011564 MOV $DTBL(RO),R1 3:GET THE CONSTANT 
(1) 0114634 160105 3$: SUB R1,R5 7:FORM THIS BCD DIGIT 
(1) 011436 002402 BLT 4$ ::BR IF DONE 
(1) 0114460 005202 INC R2 ;: INCREASE THE BCD DIGIT BY 1 
(1) 0114462 000774 BR 3$ 
(1) 011444 060105 4$: ADD R1,R5 >:ADD BACK THE CONSTANT 
(1) 011446 005702 TsT R2 7: CHECK IF BCD DIGIT=0 
(1) 011450 001002 BNE 5$ >: FALL THROUGH IF 0 
(1) 0114652 105716 TSTB (SP) z:STILL DOING LEADING 0°S? 
(1) 01146546 100407 BMI 7$ ;:BR IF YES 
(1) 011456 106316 5$: ASLB (SP) > MSD? 
(1) 011460 103003 BCC 6$ 3:8R IF NO 
(1) 011462 116663 000001 177777 MOVB 1(SP),-1(R3) 77 YES--SET THE SIGN 
(1) 011470 052702 000060 6$: BIS #'O,R2 7:MAKE THE BCD DIGIT ASCII 
(1) 0114674 052702 000040 7$: BIS #* ,R2 7:MAKE IT A SPACE IF NOT ALREADY A DIGI? 
(1) 011500 110223 MOvVB R2,(R3)¢ 32:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 011502 005720 TST (RO) + 77 JUST INCREMENT ING 
(1) 011506 020027 000010 CMP RO,#10 7: CHECK THE TABLE INDEX 
(1) 011510 002746 BLT 23 3:60 oS THE NEXT DIGIT 
(1) 011512 003002 BGT 8$ 3:60 TO EXIT 
(1) 011514 010502 MOV R5,R2 4o7y THE LSD 
(1) 011516 000764 BR 6$ 3G0 CHANGE TO ASCI]] 
(1) 011520 105726 8$: TS1B (SP)¢ sWAS es LSD THE FIRST NON-7ERO? 
(1) 011522 100003 BPL 9$ :BR NO 
(1) 011526 116663 177777 177776 MOVB -1(9P),-2(R3) ses otal THE SIGN FOR TYPING 


iat deal tent* heaniinainads ates LOGIC TEST MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79" 13: 0S PAGE 30-3 
| CZDRGE . Pil 31-auG-79 11:23 CONVERT BiNARY [0 DECIMAL AND TYPE ROUTINE SEQ 0046 
(1) 011532 105013 9$: CLRB (R3) 77;SET THE TERMINATOR 
(3) 011534 012605 MOV (SP)+,R5 >;POP STACK INTO RS 
(3) 011536 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
(3) 011540 012602 MOV (SP)4,R2 3;POP STACK INTO R2 
(3) 011542 012601 MOV (SP)4+,R1 7;PO0P STACK INTO R1 
(3) 011546 012600 MOV (SP)+,RO ;;POP STACK INTC RO 
(1) 011546 1044601 011574 TYPE , SOBLK ;NOW TYPE THE NUMBER 
(1) 011552 016666 000002 00000. MOV 2(SP),4(SP) [ADJUST THE STACK 
| (1) 011560 012616 MOV (SP)+, (SP) 
(1) 011562 0060002 RTI : RETURN TO USER 
(1) 011564 023420 $DTBL: 10000. 
(1) 011566 001750 1000. 
(1) 011570 000144 100 
(1) 011572 000012 10. 
mI: 011574 000004 $DBLK: .BikKW 4 
4 
1408 -SBTTL MISC. EXTERNAL LOGIC TEST 
1409 011606 012706 001100 EXTTST: MOV #STACK,SP 
1410 011610 004737 003166 JSR PC, SETADD SET UP ADDRESS AND VECTOR 
1411 011614 012737 040000 011710 28: MOV #BITIG,EXTCNT LOAD COUNT 
1412 011622 1$: 
(1) 011522 005077 167566 CLR aGRDIO CLEAR OUTPUT REGISTER 
1415 011626 012777 125252 167560 MOV #125252 ,aGRDIO sLOAD OUTPUT 
1414 011634 017737 167552 011706 MOV QGRDAI ,EXTIMP READ INPUT 
1415 011642 013777 9011706 167542 MOV EXTTMP ,aGRDA! CLEAR INPUT 
1416 011650 005077 167540 CLR aGRDIO CLEAR OUTPUT REGISTER 
1417 011654 012777 052525 167532 MOV #52525,aGRDIO . ;LOAD OUTPUT 
1418 011662 017737 167524 011706 MOV OGRDAIL,EXTTMP READ INPUT 
1419 011670 013777 011706 167514 MOV EXTTMP,aGRDAI CLEAR INPUT 
1420 011676 005337 011710 DEC EXTCNT sFINISHED COUNT 
1421 011702 001347 . BNE 1$ ‘ 
ost 011704 000743 BR 2$ ;LO0P 
4 
1424 011706 000000 EXTTMP: 0 
py 3 011710 000000 EXTCNT: 0 
4 
1427 ;SUBROUTINE TO LOAD TRAP AND POWER FAIL VECTORS 
1428 011712 012737 020254 000034 SETIRP: Mov #STRAP, a#TRAPVEC LOAD TRAP VECTOR 
1429 011720 012737 000340 000036 MOV #340 ,a#TRAPVEC+2 
1430 011726 012737 016300 000024 MOV #SPWRON ,a#PWRVEC sLOAD POWER FAIL VECTOR 
1431 011734 012737 000340 000026 MOV #340, a#PWRVEC+2 
1432 011742 012737 011752 000004 MOV #1$,0864 7SET UP FOR UNEXPECTED TRAP 
1433 011750 000207 RTS PC EMIT 
1434 011752 022626 1$: CMP (SP)+,(SP)¢ 
14355 011754 104401 013463 TYPE »BUSTRP 
1436 011760 000000 HALT 
14637 011762 000137 001454 JMP BEGIN 
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DRII-K LOGIC TEST a bar ae ~11-CZDRG-E MACY11 306(1063) 31-AUG-79 13:05 PAGE 31 


CZDRGE.P11 31-AUG-79 11:23 COULTER INTERFACE TEST SEQ 0047 
1439 ~SBTTL COULTER INTERFACE TEST 
1440 011766 012706 001100 COULTR: MOV #STACK,SP 
1441 011772 006737 011712 JSR PC, SETTRP LOAD TRAP AND POWER FAIL VECTORS 
1442 011776 004737 003166 JR PC ,SETADD ;SETUP BUS ADDRESS AND VECTOR 
1443 012002 005077 167402 CLR GRSTAT sCLEAR INPUT STATUR REG 
1444 012006 012777 012050 167410 MOV #20$,aGRIVA LOAD INPUT VECTOR 
1445 012014 012777 000340 167404 MOV #340,aGRIVSA 
1446 012022 104401 013524 1$: TYPE ,RUNMSG : TELL OPERATOR TO ‘RUN SAMPLE" 
1447 012026 012701 020336 MOV #BUFFER,Ri ;LOAD POINTER FOR RESULTS 
1448 012032 012777 000100 167350 4$: MOV #B1T6,aGRSTAT ENABLE INTERRUPT 
1449 0120460 005037 177776 CLR PS sLOWER PSwW 
1450 012044 000001 WAIT :WAIT FOR OPERATOR 
1451 0120466 000771 BR 4$ 
1452 012050 022626 208: CMP (SP)+,(SP)+ :POP STACK 
1453 012052 012737 000106 011706 MOV #70. ,EXTTMP LOAD # OF 1 MSEC DELAYS 
1454 012060 013700 001370 6$: MOV CPU,RO ;LOAD 1 MSEC. DELAY WEIGHT ;240 FOR 11/05 ;620 FOR 11/40 
1455 012064 005300 3$: DEC RO : DELAY 
1456 012066 001376 BNE 3$ 
1457 012070 005337 011706 DEC EXTTMP FINISHED ALL MSEC. DELAY ? 
1458 012074 001371 BNE 6$ :BR IF NOT 
1459 012076 017700 167310 MOV AGRDAI ,RO SAVE RESULTS 
1460 012102 010021 MOV RO,<R1)4 SAVE IN BUFFER 
1461 012104 012777 177777 167300 MOV #-1,aGRDAI ;CLEAR INPUT 
1462 012112 042700 007777 BIC #7777,R0 ; MASK 
1463 012116 001345 BNE 4$ BR IF NOT LAST SAMPLE 
1464 012120 010103 MOV R1,R3 COPY RI 
1465 012122 014300 5$: MOV -(R3) RO :GET RESULTS 
1466 012124 004737 012140 ' JSR PC 40% ;CONVERT AND TYPE 
1467 012130 022703 020336 CMP #BUFFER,R3 :FINISHED ? 
1468 012134 001732 BEQ 1$ :BR IF YES 
1469 012136 000771 BR 5$ :CONT. TYPING UNTIL DONE 
1470 ; SUBROUTINE FOR THE COULTER TEST 
1471 012140 012737 900055 013546 408: MOV #55 ,MSGRUS+2 sFIX ASCII MESSAGE 
1472 012146 012702 013553 MOV #MSPNT1,R2 ;LOAD DEST. POINTER 
1473 012152 012737 000004 011706 MOV #4 ,EXTITMP ;LOAD COUNT 
1474 012160 000404 BR 12% 
1475 012162 006000 10$: ROR RO 
1476 012164 006000 ROR RO 
1477 012166 006000 ROR RO 
1478 012170 006000 ROR RO 
1479 012172 010001 128: MOV RO,R1 LOAD R1 
1480 012174 042701 177760 BIC #177760,R1 > MASK 
1481 012200 052701 000060 BIS #60,R1 MAKE DiGIT 
1482 012204 110142 MOVB R1,-(R2) :SAVE DIGIT 
1483 012206 005337 011706 DEC EXTTMP FINISHED ? 
1484 012212 001363 BNE 10$ ;BR IF NOT 
1485 012214 000337 013546 SWAB MSGRUS*2 ;ADJUST MESSAGE 
1486 012220 104401 013544 TYPE, MSGRUS 
1487 012224 000207 RTS PC sEalt 





REE TP AI yp SEE RS ge 
DRII“K LOGIC TEST MAINDEC=11-CZDRG-E MACYI1 30G(1063) 31-AUG-79 18:05 PAGE 32 


CZORGE.P11 31-AUG-79 11:23 LOC-BOX LAMP AND SWITCH LOOP SEQ 0048 

1489 -SBTTL LOC-BOX LAMP AND SWITCH LOOP 

1490 012226 012706 001100 LOCBOX: MOV #STACK,SP 

1491 012232 004737 011712 JSR PC,SETTRP 

1492 012236 104401 013304 TYPE ,»LOCHDR sTELL OPERATOR WHAT THIS IS 
1493 012242 0046537 012346 JSR R5,INADR sGET THE ADDRESSES 
1494 012246 001402 012532 LOC1,LOCTY 

1495 012252 000412 BR LOCA BR IF DONE 

1496 012254 004537 012346 JSR RS,INADR ;GET NEXT ADDRESS 
1497 012260 001404 012534 LOC2,LOC2Y 

1498 012264 000405 BR LOCA ;BR IF DONE 

1499 012266 004537 012346 JSR RS, INADR :GET NEXT ADDRESS 
1500 012272 001406 012536 LOC3,LOC3yY 

ens 012276 000400 BR LOCA 

1503 012300 005737 012532 LOCA: TST LOCTY sTEST IF SELECTED 
1504 012304 001403 BEQ 1$ BR IF NOT 

1505 012306 004537 012460 JSR R5S,LOUP1 ~ s TEST FOR SWITCHES AND LOAD LAMPS 
506 012312 001402 LOC! 

1507 012314 005737 012534 1$: TST LOC2Y - sTEST IF SELECTED 
1508 012320 001403 BEQ 2$ :BR IF NOT 

1509 012322 004537 012460 JSR R5,LOUP1 ;LOAD NEXT SCT 

1510 012326 001404 LOC2 

1511 012330 005737 012536 2s: TST LOC3Y sTEST IF SELECTED 
1512 012334 001403 BEQ 3$ 

1513 012336 004537 912460 JSR R5,LOUP1 ;LOAD NEXT SET 

1514 012342 001406 LOc3 

ge 012344 000755 3$: BR LOCA ;LOOP BACK 

1517 012346 013537 012452 INADR: MOV a(R5)+,10$ ;GET BUS ADDRESS 
1518 012352 012537 012456 MOV (R5)+,12$ 7GET INDICATOR 

1519 012356 005077 000074 CLR ai2$ :CLEAR FLAG 

1520 012362 104401 013345 1$: TYPE, INADRH ;ASK FOR INPUT 

1521 012356 013746 012452 MOV 10$,-(SP) ;TYPE CURRENT ADDRESS 
1522 012372 104402 TYPOC 

1523 012374 104401 013410 TYPE, INDADR ;ADD YES NO 

1524 012400 104411 RDLIN ;READ CHAR. AND ECHO 
1525 012402 000240 NOP 

1526 012404 000240 NOP 

1527 012406 013637 012454 MOV a(SP)+,11$ GET THE ‘ANSWER 

1528 012412 042737 177640 012454 BIC #177640,11$% sMASK OFF BITS 

1529 012420 001413 BEQ 3$ BR IF CR 

1530 012422 022737 000116 012454 CMP #'N,118 sTEST IF NO 

1531 012430 001406 BEQ 2$ 3;BR IF NO 

1532 0124632 022737 000131 012454 CMP #'y,11$ sTEST IF YES 

1533 012440 001350 BNE 1$ BR IF OTHER 

1534 012442 005277 000010 INC a12$ sSET YES FLAG 

1535 012446 005725 23: TST (R5)+ 

1536 012450 000205 3$: RTS RS sEXIT 

1537 012452 000000 10$: 0 

1538 012454 000000 118: 0 

1539 012456 900000 128: 0 
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EST = wit hited MACY11 306(1063) 31-AUG-79 13:05 PAGE 33 


1-AUG-79 11:2 
013537 012526 
001001 
000205 
013702 012526 
062702 000002 
010203 
062703 000002 
011200 
011301 
040100 
041213 
060013 
012712 177777 
000205 
000000 
000000 
000000 
000000 
000000 
012706 901100 
004737 011712 
104401 013426 
004537 012346 
001402 012532 
000412 
004537 012346 
001404 012534 
000405 
004537 012346 
001406 012536 
000400 
005737 012532 
001431 
004537 013066 

000 000 

000007 
001402 
004537 013066 

001 003 

000070 
001402 
004537 013066 

002 006 
000700 
001402 
004537 013066 
003 011 
007000 
001402 
004537 013066 


LOC-BOX LAMP AND SWITCH LOOP 


; SUBROUTINE TO LOAD THE LAMPS FROM THE LOC BOX SWITCHES 
LOUP1: MOV a(R5)+,408 ;GET ARG 


1$: 


40$: 
41$: 
LOCIY: 
LOC2Y: 
LOC3Y: 


XLOVAD: : 


XL010: 


LOC3,L0C 
BR 


R1,R0 
(R2),(R3) 
RO, (R3) 
#-1,(R2) 
R5 


<BR IF YES 
PEXIT 


MASK OFF BITS 
;LOAD OUTPUT BITS 


;CLEAR INPUT 
sEXIT 


; YES/NO ANSWER TO LOC BOX #1 


XLO1 ADJUSTMENT ROUTINE 


#STACK,SP 
PC,SETTRP 


3Y 
XL01 


LOCIY 

1$ 
R5,XLOADJ 
0,0 


R5,XLOADJ 
1,3 


R5,XLOADJ 
2. 
R5,XLOADJ 
3,11 


R5,XLOADJ 


; TELL OPERATOR 


:GET BUS ADDRESS 


TEST IF SELECTED 

:BR IF NOT SELECTED 

NOW CONVERT THE DATA AND DISPLAY 
LOAD CH# AND SHIFT COUNT 

;LOAD DATA MASK 

:DR11K BUS ADDRESS 

NOW CONVERT THE DATA AND DISPLAY 
;LOAD CH# AND SHIFT COUNT 

;LOAD DATA MASK 

:DR11K BUS ADDRESS 

NOW CONVERT THE DATA AND DISPLAY 
LOAD CH# AND SHIFT COUNT 

;LOAD DATA MASK 

:DR11K BUS ADDRESS 

NOW CONVERT THE DATA AND DISPLAY 
;LOAD CH# AND SHIFT COUNT 

;LOAD DATA MASK 

:DR11K BUS ADDRESS 

NOW CONVERT THE DATA AND DISPLAY 


IN LAMPS 


IN LAMPS 


IN LAMPS 


IN LAMPS 


IN LAMPS 
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DRY1-K LOGIC TE 
CZORGE .P11 31-AUG-79 11:23 XLO1 ADJUSTMENT ROUTINE SEQ 0050 | 
(1) 012674 004 014 -BYTE 4,14 ;LOAD CH# AND SHIFT COUNT 
(1) 012676 070000 70000 ;LOAD DATA MASK 
(1) 012700 001402 LOC! ;DR11K BUS ADDRESS 
1591 012702 005737 012534 1$: TST LOCc2Y TEST IF SELECTED 
1592 012706 001431 BEQ 2$ :BR IF NOT 
1593 012710 004537 013066 JSR R5,XLOADJ ;NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 012714 005 000 BYTE 3.0 ;LOAD CH# AND SHIFT COUNT 
(1) 012716 000007 7 ;LOAD DATA MASK 
(1) 012720 001404 LOC2 :DR11K BUS ADDRESS 
1594 012722 004537 013066 JSR R5,XLOADJ ;NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 012726 006 003 -BYTE 6,3 ;LOAD CH# AND SHIFT COUNT 
| (1) 012730 000070 70 ;LOAD DATA MASK 
(1) 012732 001404 LOC2 :DR11K BUS ADDRESS 
1595 012734 004537 013066 JSR R5,XLOADJ NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 012740 007 006 -BYT 7,6 ;LOAD CH# AND SHIFT COUNT 
(1) 012742 000700 700 ;LOAD DATA MASK 
(1) 012744 001404 LOCc2 :DR11K BUS ADDRESS 
1596 012746 004537 013066 JSR R5,XLOADJ s:NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 012752 010 011 -BYTE 10,11 ;LOAD CH# AND SHIFT COUNT 
(1) 012754 007000 7000 ;LOAD DATA MASK 
(1) 012756 001404 LOCc2 :DR11K BUS ADDRESS 
1597 012760 004537 013066 JSR R5,XLOADJ sNOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 012764 011 014 -BYTE 11,14 ;LOAD CH# AND SHIFT COUNT 
(1) 012766 070000 70000 ;LOAD DATA MASK 
(1) 012770 001404 LOC2 :DR11K BUS ADDRESS 
1598 012772 005737 012536 2$: TST LOC3Y sTEST IF SELECTED 
1599 012776 001431 BEQ 3$ :BR IF NOT 
| 1600 013000 004537 013066 JSR R5,XLOADJ s;NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 013004 012 000 -BYTE 12,0 ;LOAD CH# AND SHIFT COUNT 
(1) 013006 000007 7 ;LOAD DATA MASK 
(1) 013010 001406 LOCc3 :DR11K BUS ADDRESS 
1601 013012 004537 013066 JSR R5,XLOADJ NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 013016 013 003 -BYTE 13,3 ;LOAD CH# AND SHIFT COUNT 
(1) 013020 000070 70 ;LOAD DATA MASK 
(1) 013022 001406 LOC3 :DR11K BUS ADDRESS 
1602 013024 004537 013066 JSR R5,XLOADJ s:NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 013030 014 006 -BYTE 14,6 ;LOAD CH# AND SHIFT COUNT 
(1) 013032 000700 700 ;LOAD DATA MASK 
(1) 013034 001406 LOC3 :DR11K BUS ADDRESS 
1603 013036 004537 013066 JSR RS,XLOADJ ;NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
(1) 013042 015 011 VTE 8693.97 . =LOAD CH# AND SHIFT COUNT 
(1) 013044 007000 7000 ;LOAD DATA MASK 
(1) 013046 001406 LOCc3 :DR11K BUS ADDRESS 
1604 013050 004537 013066 ; JSR R5,XLOADJ :NOW CONVERT THE DATA AND DISPLAY IN LAMPS 
| (1) 013054 016 014 -BYTE 16,14 ;LOAD CH# AND SHIFT COUNT 
(1) 013056 070000 70000 ;LOAD DATA MASK 
(1) 013060 001406 LOC3 :DR11K BUS ADDRESS 
1605 013062 000137 012612 3$: JMP XL010 
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000205 


000000 
000000 
000000 


000206 


013272 
000154 


000004 
000140 


000136 
000004 


000014 
000060 
001530 
000060 
000014 


000004 
000002 


000002 
000004 
013270 


013274 
000006 


000176 


013272 


000012 


M4 
LOGIC TEST MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79 13:05 PAGE 34 


XLO1 ADJUSTMENT ROUTINE 


; ANALOG 
XLOADJ: 


1$: 


40$: 


CONVERSI 
MOVB 


ON AND LOC BOX DRIVER 
(RS) +. @ADCS1 :LOAD CHANNEL # 
#81113, aADCS :SET UNIPOLAR 
(R5)+,40$ “GET SHIFT COUNT 
(R5)+.42% ‘GET DATA MASK 
a(R5)+,41$ *GET DRI1K BUS ADDRESS 
0$ :BR IF NONE 
aADcs ;CONVERT THE DATA 
#4618 :GET LAMP ADDRESS 
aAdcs :WAIT FOR DONE 
@ADBR,RO :READ THE DATA 


#4 ,R0 4 a AT UPPER END 


$ 3;BR IF YES 

#14,R0 ;TEST IF NEAR UPPER END 
6$ 3;BR IF YES 

#60,R0 Hi Re GETTING NEAR UPPER END 

: Y 

#1530,R0 :TEST IF GETTING NEAR LOWER END 
$ ;BR IF YES 

#60,R0 ;TEST IF NEAR LOWER END 
$ ;BR IF YES 

#14,R0 sTEST IF AT LOWER END 

$ ;BR IF YES 

7$ ;BR IF AT STOP 

#4,R1 ;LOAD @# 

#2,R1 

R1 

7$ ;BR AND LOAD LAMP'S 
#2,R1 ;LOAD #@ 

#4,R1 

40$,R0 ;LOAD. SHIFT COUNT 

. ;SHUFFEL THE DATA 

R 

10$ 7BR IF NOT DONE 

R1 ;RE ADJUST 

42$,041$ sCLEAR OLD DATA IN LAMPS 
bas ;LOAD THE LAMPS 

R5 EXIT 





SEQ 0051 
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020105 


047514 


047040 
046130 
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037440 
030460 


051104 


047125 
046120 


047116 


053523 


CNNHERM — 2 
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XLO1 ADJUSTMENT ROUTINE 


ADCS: 


LOCHDR: 
INADRH: 


INDADR: 


XLOHDR: 


BUSTRP: 


RUNMSG: 


MSGRUS: 
MSPNT1: 


SWNLB: 


SWINTB: 


170400 


-ASCIZ 


-ASCIZ 


-ASCI2Z 


-ASCIZ 


-ASC1Z 


-ASCI1 


-BYTE 
-EVEN 


-ASCIZ 


~ASCIZ 


<15><12>/LOC-BOX SWITCH AND LAMP LOOP/<15><12> 
<15><12>/USE LOC-BOX <DR11K AT BUS ADDR. / 


/> YORN? / 


<15><12>/XL01 POT ADJUSTMENT LOOP/<15><12> 


<15><12>/BUS TIME-OUT ON SELECTED DR11K/ 


<15><12><12>/RUN SAMPLE/<15><12> 


<15><12>/=-NNNN/ 
0 


/SET SWITCH REGISTER BI’S EQUAL TO THE NON-LATCHING INPUT BITS/ 


/SET SWITCH REGISTER BITS EQUAL TO THE INTERRUPTING INPUT BITS/ 


SEQ 0052 


———EE | 


ee 
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1669 SWPOSB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL 10 POSITIVE INPUT BITS/ 
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1670 SWIRAB: .ASCIZ /SET SWITCH REGISTER BITS 15-12 EQUAL TO TRANSITION INPUT BITS/ d 
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1671 042523 020124 053523 SwWDPOB: .ASCIZ /SET SWITCH REGISTER WITH THE DESIRED PROGRAM OPTIONS/ 
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: 
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0 
0 
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0 
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000 
4227 015 042012 050105 DEPCNT: .ASCIZ <15><12>/DEPRESS CONT./<15><12> 
027124 005015 
040524 052524 EMI: eASCIZ /STATUS REGISTER IN ERROR/ 


1672 


1673 


051105 047522 
1674 052520 geet ce EM2: -ASCIZ /INPUT REGISTER IN ERROR/ 


1675 EMS: ~ASCI1Z /OUTPUT REGISTER IN ERROR/ 


1676 EMG: -ASCIZ = /INPUT FAILED TO INTERRUPT/ 


a ek ee ge et ed ed ed od 
&* 
Nm 
3 
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052120 


1677 EMS: eASCIZ /OUTPUT FAILED TO INTERRUPT/ 


oo 

fr 
o 

— > —* 
~ 


=" 
NM —MNNNN—— — Onn On — 
WVrF~ 


VIPS SHON WF S LF NOOWUM 


$s 

So 
ws 

~rO 

—_ 

—_ 

—_ 


0 
1678 Biecke 04 


1679 014475 


5 
6 
40 
d 
B 042520 EM6: -ASCIZ = /UNEXPECTED INTERRUPT/ 
5 
040522 EM7: -ASCIZ /OPERATOR INTERVENTION ERROR/ 
2 
7 


0 
1680 051105 €&M10: eASCIZ = /INTERRUPT INPUT BIT FAILED TO SET INPUT READY FLAG/ 


054504 043040 
1681 014614 047516 026516 047111 EM11: -ASCIZ /NON-INTERRUPT INPUT BIT SET INPUT READY FLAG/ 


014660 042101 vad * > 046106 
1682 


1683 014671 105 051122 041520 D1: -ASCIZ = /ERRPC = DRADD ISTNUM STATUS EXPECTED/ 
000 
1684 014741 105 051122 041520 D2: sASCIZ /ERRPC DRADD TSTNUM INPUT  EXPECTED/ 


014770 052520 020124 020040 


1685 015007 105 051122 041520 DH3: -ASCIZ /ERRPC DRADD TSTNUM OUTPUT EXPECTED/ 


000 
055 105 051122 041520 Dns: ~ASCIZ) /ERRPC = =DRADD §TSTNUM/ 
062 020040 042040 040522 


1686 











DR11-« 


dD 5 
= MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79 13:05 PAGE 35-3 


=r 
a 
oe 
oO 


T 
3 


CZORGE .P11 ~AUG-79 11:23 XLO1 ADJUSTMENT ROUTINE SEQ 0055 

015070 0421046 052011 052123 
015076 052516 000115 

1687 015102 051105 050122 020103 DH10: .ASCIZ /ERRPC DRADD TSTNUM STATUS EXPECT INPUT BIT/ 
015110 0200460 051104 042101 
015116 004 051524 047124 , 
015124 046525 051411 040524 
015132 052524 020123 042440 
015140 050130 041505 020124 
015146 0444640 050116 052125 
015154 041040 052111 00 

1688 015162 ~EVEN 

1689 015162 001116 001376 015242 D711: SERRPC ,DRADD, TSTNUM, SBDDAT ,SGDDAT ,0 
015170 001126 001124 000000 

1690 AL, oA 001376 0152462 DT4: SERRPC ,DRADD, TSTNUM,0 

1691 015206 001116 001376 0152462 DTI0:  SERRPC,DRADD,TSTNUM,SBDDAT,SGDDAT,BRLEV3,0 
015214 001126 001124 001442 
015222 00 

1692 015224 000000 000000 000000 oFO: 0.0,0,0.0.0,0 
015252 000000 000000 000000 
015240 000000 

1693 015242 000000 TSTNUM: 0 
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CZDRGE.P11 31-AUG-79 11:23 XLO1 ADJUSTMENT ROUTINE SEQ 0056 

1695 
et -SBTTL SCOPE HANDLER ROUTINE 

(2) , eeeeererererrrerrerererererererereeeereneneneeeteteteeeeeeneeet 

(1) SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

(1) ;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) ;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

(1) :*THE SWITCH OPTIONS toe ts BY THIS ROUTINE ARE: 

(1) 7 *SW146=1 LOOP ON TES 

(1) :*Swil=1 INHIBIT ITERATIONS 

(1) 3*Sw09=1 LOOP ON ERROR 

(1) 3 *Sw08=1 LOOP ON TEST IN SWR<7:0> 

(1) 7 *CALL 

ae 5° SCOPE :;SCOPE=I10T 

(1) 0152464 $SCOPE: 

(1) 0152464 104407 CKSWR 7: TEST FOR CHANGE IN SOFT=SwR 

(1) 015266 032777 0460000 163664 1$: BIT #B1T14,aSwR :sLOOP ON PRESENT TEST? 

(1) 015254 001114 BNE SOVER sYES IF Swi4é=1 

(1) ;MAAAASTART OF CODE FOR THE XOR TESTERMMAMS 

(1) 015256 000416 SXTSTR: BR 6$ 72: 1F RUNNING ON THE ‘‘XOR'' TESTER CHANGE 
(1) 3: THIS INSTRUCTION TD A ‘'NOP’’ (NOP=240) 
(1) 015260 013746 000004 MOV Q@MERRVEC,-(SP) :;SAVE THE comes OF THE ERROR VECTOR 
(1) 015264 012737 015304 000004 MOV #5%$ ,AMERRVEC $4 FOR TIMEOUT 

(1) 015272 005737 177060 TST a#177060 TIME OUT ON XOR? 

(1) 015276 012637 000004 MOV (SP)+ ,a@#ERRVEC  : RESTORE THE ERROR VECTOR 

(1) 015302 000463 BR SSVLAD :GO TO THE NEXT TEST 

(1) 015304 022626 5$: CMP (SP)+,(SP)+ TI CLEAR THE STACK AFTER A TIME Out 

(1) 015306 012637 000004 MOV (SP)+ ,a#ERRVEC + sRESTORE THE ERROR VECTOR 

(1) 015312 000423 BR 7$ LOOP ON THE PRESENT TEST 

(1) 015314 6$:;##HNHEND OF CODE FOR THE XOR TESTERSMMM4 

(1) 015314 032777 000400 163616 BIT #B1T08,aSwR ;;LOOP ON St €. TEST? 

41) 015322 001404 BEQ 23 7:BR IF NO 

(1) 0153246 127737 163610 001102 CMPB aSwRk ,STSTNM :30N THE RIGHT TEST? SWR<7:0> 

(1) 015332 001465 BEQ SOVER ae IF YES 

(1) 015334 105737 001103 2s: TSTB SERFLG ; sHAS AN 7 OCCURRED: 

(1) 015340 001421 BEQ 3$ ::BR IF 

(1) 0153462 123737 001115 001103 CMPB SERMAX ,SERFLG >: MAX, ERRORS FOR THIS TEST CCCURRED? 
(1) 015350 101015 BHI 3$ 7:BR IF NO 

(1) 015352 032777 001000 163560 BIT #BITO9,aSwR +: LOOP ON ERROR? 

(1) 015360 001404 B3EQ 4$ 33 IF NO 

(1) 915362 013737 001110 001106 7$: MOV SLPERR,SLPADR 7:SET LOOP ADDRESS TO LAST SCOPE 

(1) 015370 000446 BR SOVER 

(1) 015372 105037 001103 4$: CLRB SERFLG 7: ZERO THE ERROR FLAG 

(1) 015376 0050357 001160 CLR STIMES ;:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 015402 000415 BR 1$ ; ESCAPE TO THE NEXT TEST 

(1) 015406 032777 004000 163526 3$: BIT #BIT11 ,aSwR >: INHIBIT ITERATIONS? 

(1) 015412 001011 BNE 1$ 447 IF YES 

(1) 015414 005737 001176 TST $SPASS ilf FIRST PASS OF PROGRAM 

(1) 015420 001406 BEQ 1$ INHIBIT ITERATIONS 

(1) 015422 005237 001104 INC SICNT INCREMENT ITERATION COUNT 

(1) 015626 023737 001160 001104 CMP STIMES,SICNT CHECK THE NUMBER OF ITERATIONS MADE 
(1) 015434 002024 BGE SOVER 7;BR 1F MORE ITERATION REQUIRED 

(1) 0154636 012737 000001 001104 1$: MOV #1, SICNT + sREINITIALIZE THE ITERATION COUNTER 
(1) 01546646 013737 015522 001160 MCV SMXCNT, STIMES 7SET NUMBER OF ITERATIONS T0 DO 

(1) 015452 105237 001102 $SVLAD: INCB $STSTNM >; COUNT TEST NUMBERS 


ee 
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(1) 0154656 113737 001102 001174 MOvB STSTNM,STESTN 3;SET TEST NUMBER IN APT MAILBOX 
(1) 0154666 011637 001106 MOV (SP), SLPADR ::SAVE SCOPE LOOP ADDRESS 

(1) 015670 011637 001110 MOV (SP) ,SLPERR 7:;SAVE ERROR LOOP ADDRESS 

(1) 015674 005037 001162 CLR SESCAPE 7;CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 015500 112737 000001 001115 MOVB #1, SERMAX + ONLY ALLOW ONE‘1) ERROR ON NEXT TEST 
(1) 015506 013777 001102 163426 SOVER: mov STSTNME,@DISPLAY ;;:DISPLAY TEST NUMBER 

(1) 015514 013716 001106 ot SLPADR, (SP) +: FUDGE RETURN ADDRESS 

(1) 015520 000002 R11 sc FIMES PS 

(1) 015522 003720 SMXCNT: 2000. 7 :MAX. NUMBER OF ITERATIONS 
pitt -SBTTL ERROR HANDLER ROUT INE 

(2) ;eerereerrreererererereeerereerereeteeteeeteteeneeeeeeeeeeeneeee 
(1)  STHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) ;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

(1) ;*AND GO TO SERRTYP ON ERROR 

(1) :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) 3*SW15=1 HALT ON ERROR 

(1) :*Sw13= 1 INHIBIT ERROR TYPEOUTS 

(1) > #SwO9=1 LOOP ON ERROR 

(1) 7 *CALL 

4h, :* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

(1) 

(1) 015524 . SERROR: 

(1) 015524 104407 CKSWR 3: TEST FOR CHANGE IN SOFT-SWR 

(2) 015526 113737 901102 015242 MOVB STSTNM, TSTNUM 

(1) 015534 105237 001103 7$: INCB SERFLG food THE ERROR FLAG 

(1) 015540 001775 BEG 7$ ;DON'T LET THE FLAG GO TO ZERO 
(1) 015542 013777 001102 163372 MOV SISTWA.@DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 015550 005237 001112 INC SERTTL > INC THE ERRCR COUNT 

(1) 015554 011637 001116 MOV (SP) ,SERRPC GET ADDRES’ OF ERROR INSTRUCTION 
(1) 015560 162737 000002 001116 SUB #2, SERRPC 

(1) 015566 117737 163326 001114 MOvB ASERRPC .SITEMB +3 STRIP AND SAVE THE ERROR ITEM CODE 
(1) 015576 032777 020000 163336 BIT #B1T13,aSwWR sSKIP TYPEOUT IF SET 

(1) 015602 001004 BNE 208 >: SKIP TYPEOUTS 

(1) 015606 004737 015716 JSR PC, SERRTYP 3:60 TO USER ERROR ROUTINE 

(1) 015610 104401 001165 TYPE ,SCRLF 

(1) 015614 208: 

(1) 015614 122737 000001 001210 CMPB #APTENV,SENV :;RUNNING IN APT MODE 

(1) 015622 001007 BNE 28 77NO,SKIP APT ERROR REPORT 

(1) 0156246 113737 001114 015636 MOVB SITEMB,21$% ;:SET ITEM NUMBER AS ERROR NUMBER 
(1) 015632 004737 020024 JSR PC ,SATYS 7; REPORT FATAL ERROR TO APT 

(1) 015636 000 218: -BYTE 0 

(1) 015637 000 -—BYTE 0 

(1) 015640 000777 22%: Se 22% >; APT ERROR LOOP 

(1) 015662 005777 163272 2$: TST aSwR >: MALT ON ERROR 

(1) 015646 100002 BPL 3$ 3: SKIP IF CONTINUE 

(1) 015650 000000 HALT >: HALT ON ERROR! 

(1) 015652 104407 CKSWR 3: TEST FOR CHANGE IN SOFT=-SWR 

(1) 015654 032777 001000 163256 3$: BIT #B1109,aSwWR ;:LOOP ON ERROR SWITCH SET? 

(1) 015662 001402 38£&Q 4% ::BR IF NO 

(1) 015664 013716 001110 MOV SLPERR, (SP) ;:FUDGE RETURN FOR LOOPING 

(1) 015670 005737 001162 4%: TST SESCAPE 3: CHECK FOR AN ESCAPE ADDRESS 

(1) 015674 001402 BEQ 5$ 3:BR IF NONE 

(1) Hh 4 013716 001162 $s MOV SESCAPE,(SP) . >;FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 015 : 

(1) 015702 022737 011324 000042 CMP @SENDAD 842 SrACT=11 AUTO-ACCEPT? 
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(1) 015710 001001 BNE 6$ 
(1) 015712 000000 HALT 

(1) 015714 6$: 
(1) 015716 000002 RTI 
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os IF NO 


7 RETURN 


SEQ 6058 
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104401 


001004 


013746 
194402 


016052 


001165 


001114 


001116 


- 001165 


016006 


001165 


001165 


016046 
000 
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ERROR HANDLER ROUTINE 


- SBTTL 


;*ERROR 1S TO BE REPORTED. 
;*AND REPORTS THE APPROPRIATE 


SERRTYP: 


2s: 
3$: 


4%: 
5$: 


6$: 


7$: 
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ERROR MESSAGE TYPEOUT ROUTINE 


;,eeeeeerrrrrrererrereeeeererereeerereeeteeeeeeneeeeeeeteeeeeeeee 


:*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 


, SCRLF 
RO,-(SP) 
0 


m 
a#$1TEMB,RO 
1$ 


SERRPC,=-\SP) 


R 
#SERRTB RO 
(RO)+,2% 
3$ 


0 

CRLF 
(RO)+,4$ 
5$ 


0 
 SCRLF 
(RO) ,RO 
7$ 


(SP)+*,RO 
-SCRLF 

PC 
(RO) +, (SP) 
(RO) 

6$ 
8% 
7$ 


iT THEN OBTAINS, 
INFORMATION CONCERNING THE ERROR. 


FROM THE “ERROR TABLE’ 


SAVE RO RETURN’ @ “LINE FEED" 


ef V 
:PICKUP THE ITEM INDEX 


;c1F ITEM NUMBER IS 7ERO, yuUST 

7: TYPE THE PC OF THE ERROR 

7: SAVE SERRPC FOR TYPEOUT 

3 ERROR ADDRESS 

+360 TYPE=-OCTAL ASCII(ALL DIGITS) 
3;GET OUT 

>: ADJUST THE INDEX SO THAT IT WILL 

Ss WORK FOR THE ERROR TABLE 


::FORM TABLE POINTER 

7 PICKUP ‘ERROR MESSAGE’ POINTER 

7:SKIP TYPEOUT IF NO POINTER 

7: TYPE THE ‘ERROR MESSAGE" 

77""ERROR MESSAGE’ POINTER GOES HERE 

;; "CARRIAGE RETURN’ @ ‘'LINE FEED" 

7:PICKUP ‘DATA HEADER’’ POINTER 

7: SKIP TYPEOUT IF 0 

7: TYPE THE “DATA HEADER" 

3:°"DATA HEADER’ POINTER GOES HERE 

7: °"CARRIAGE RETURN’ & ‘LINE FEED’ 

:;PICKUP “DATA TABLE’’ POINTER 

3:G0 TYPE THE DATA 

> RESTORE RO 

32 °"CARRIAGE RETURN’ @ 
TURN 


“LINE FEED" 


ry a(RO)* FOR TYPEOUT 
:GO TYPE--OCTAL ASCII CALL DIGITS) 
:1S THERE ANOTHER NUMBER 

;:BR IF NO 

age TWO(2) SPACES 


2: TwO(2) SPACES 


(SERRTB), 


SEQ 0059 
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1702 
ef -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

(2) ;, eererererererrererererereerrereerereteeeeteteeeeeeeneteeTeterere 
(1) 7*THIS ROUTINE iS USED TO CHANGE A 16-BI1T BINARY NUMBER TO A 6-DIGIT 
(1) ;*OCTAL (ASCII) NUMBER AND TYPE IT. 

+h aa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

;*CALL: 

(1) ie MOV NUM, =(SP) > NUMBER TO BE TYPED 

(1) ;* TYPOS 3; CALL FOR TYPEOUT 

(1) if BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) 3e BYTE M 3 ;M=1 OR 0 

(1) ;* 32 1)=TYPE LEADING ZEROS 

+h sf 3: 0=SUPPRESS LEADING ZEROS 

*@ 

(1) 7 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) :*$TYPOS OR $TYPOC 

(1) :*CALL: 

(1) 3* MOV NUM ,-(SP) > NUMBER TO BE TYPED 

HH 3 TYPON 3;CALL FOR TYPEOUT 

(1) ie 

Hh s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(1) s*CALL: 

(1) if MOV NUM, -(SP) > NUMBER TO BE TYPED 

$f. :e TYPOC - 33;CALL FOR TYPEOUT 

(1) 

(1) 016052 017646 000000 $TYPOS: MOV a(SP) ,-(SP) 3 z;PICKUP THE MODE 

(1) 016056 116637 000001 016275 MOVB i(SP), SOF ILL 3;LOAD ZERO FILL SWITCH 

(1) 016064 112637 016277 MOVB (SP)*#,S$OMODE*1 ;;NUMBER OF DIGITS TO TYPE 

(1) 016070 062716 000002 ADD #2, (SP) >; ADJUST RETURN ADDRESS 

(1) 016074 000406 BR $TYPON 

(1) 016076 112737 000001 016275 $TYPOC: MOVB #1, SOF ILL 3:SET THE ZERO FILL SWITCH 

(1) 0161046 112737 000006 016277 MOvVB #6, S0MODE +1 3:SET FOR S1X(6) DIGITS 

(1) 016112 112737 000005 016274 $TYPON: MOVB #5, S0CNT 3:SET THE ITERATION COUNT 

(1) 016120 010346 MOV R3,-(SP) 77 SAVE R3 

(1) 016122 010446 MOV R4,-(SP) 77; SAVE RS 

(1) 016124 010546 MOV R5,-(SP) 7: SAVE RS 

(1) 016126 1137046 016277 MOVB SOMODE+1,R4 7:GET THE NUMBER OF DIGITS [c TYPE 
(1) 016132 005404 NEG RS 

(1) 16134 062704 000006 ADD #6 ,R4 >: SUBTRACT IT FOR MAX. ALLOWED 

(1) 016140 110437 016276 MOVB R4, SOMODE 7: SAVE IT FOR USE 

(1) 0161464 113704 016275 MOVB SOFILL,R4 3:GET THE ZERO FILL SWITCH 

(1) 016150 016605 000012 - MOV 12(SP),R5 3;PICKUP THE INPUT NUMBER 

(1) 016154 005003 CLR R3 3: CLEAR THE OUTPUT WORD 

(1) 016156 006105 1$: ROL R5 7:ROTATE MSB INTO ‘“'C’’ 

(1) 016160 000404 BR 3% ::G0 DO MSR 

(1) 016162 006105 2s: ROL R5 3:FORM THi. DIGIT 

(1) 016164 006105 ROL R5 

(1) 016166 006105 ROL R5 

(1) 016170 010503 MOV R5,R3 

(1) 016172 006103 3$: ROL R3 3:GET LSB OF THIS Da 

(1) 016174 105337 016276 DECB SOMODE 23 TYPE THIS DIGIT 

(1) 0162 100016 BPL ? ;BR NO 

(1) 016202 042703 177770 BIC #177770,R3 + GET RID OF JUNK 

(1) 0162 001002 BNE 43% 3; TEST FOR 0 

(1) 016210 005704 TST R4 >: SUPPRESS THIS 0? 
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CZORGE .P11 31-AuG-79 11:23 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0061 
(1) 016212 001403 BEQ 5$ 7 BR If YES 
(1) 016214 005204 4$: INC RG ;;DON'T SUPPRESS ANYMORE 0'S 
(1) 016216 052703 000060 BIS #'O,R3 3:MAKE THIS DIGIT ASCII 
(1) 016222 052703 000040 5$: BIS #° ,R3 7:MAKE ASCII IF NOT ALREADY 
(1) 016226 110337 016272 MOVB R3,8% 3: SAVE FOR TYPING 
(1) 016232 104401 016272 TYPE 8 3:60 TYPE THIS DIGIT 
(1) 016236 105337 016274 7$: DECB SOCNT ;;COUNT BY 1 
(1) 016242 003347 BGT 23 :;BR IF MORE TO 09 
(1) 016244 002402 BLT 6$ ::BR IF DONE 
(1) 016266 005204 INC RS >; INSURE LAST JIGIT ISN'T A BLANK 
(1) 016250 000744 BR 2$ 3:GO0 DO THE LAST DIGIT 
(1) 016252 012605 6$: MOV (SP)+,R5 7 RESTORE RS 
(1) 016254 012604 MOV (SP)4+,R4 ; RESTORE R4 
(1) 016256 012603 MOV (SP)+,R3 oa ett tea R3 
(1) 016260 016666 000002 000004 MOV 2(SP) ,4(S5P) ;SET THE STACK FOR RETURNING 
(1) 016266 012616 MOV (SP)+, (SP) 
(1) 016270 000002 RTI > ;RETURN 
(1) 016272 000 g$: .BYTE 0 +4 itr FOR ASCII DIGIT 
(1) 016273 000 BYTE 0 ; TERMINATOR FOR TYPE ROUTINE 
(1) 016274 000 SCCNT: .BYTE 0 TOCTAL DIGIT COUNTER 
(1) 016275 000 SOFILL: .BYTE 0 : “ERO FILL SWITCH 
(1) 016276 000000 S$OMODE: .WORD 0 >: NUMBER OF DIGITS TO TYPE 











CZORGE .P11 
1705 
1706 

(1 

(2 

(1 

(1) 016300 012737 
(1) 016306 012737 
(3) 016314 010046 
(3) 016316 010146 
(3) 016320 010246 
(3) 016322 010346 
(3) 016324 010446 
(3) 016326 010546 
(3) 016330 017746 
(1) 016334 010637 
(1) 016340 012737 
(1) 016346 000000 
+ 016350 000776 
(2 
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MACY11 306(1063) 


31-AuG-79" 


BINARY TO OCTAL (ASCII) AND TYPE 


-SBTTL POWER DOWN AND UP ROUTINES 


SRE RRAAEREA EERE TTA AAA e eee eA AKeeetATAteteeeeeeee 


BOWER DOWN ROUTINE 


$PWRDN: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST UP 
MOV #340, aePWRVEC+2 33PR10:7 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
MOV R2,-(SP) 33PUSH R2 ON STACK 
° MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV R4,-(SP) 3:PUSH R4& ON STACK 
MOV R5,-(SP) ;PUSH RS ON STACK 
MOV aSWR,-(SP) +; PUSH @SWR ON STACK 
MOV SP, SSAVR6 ;SAVE SP 
ong #SPWRUP, aePWRVEC SET UP VECTOR 
HAL 
BR 72 3; HANG UP 
; SURAT TEETER AAR Kee eee 
POWER UP ROUTINE 
$PWRUP: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, $P s°GET SF 
CLR SSAVR6 3;WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 3:WAIT FOR THE INC 
BNE 1$ ; WORD 
MOV (SP)+,aSWR ;:POP STACK INTO aSwR 
MOV (SP)+,R5 3:POP STACK INTO R5 
MOV (SP)4+,R4 3;POP STACK INTO R4& 
MOV (SP)+,R3 3:POP STACK INTO R3 
MOV (SP)+,R2 3:POP STACK INTO R2 
MOV (SP)+,R1 +3 POP STACK INTO R1 
MOV (SP)}+,RO0 3:POP STACK INTO RO 
MOV #S$PWRON, Q#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
MOV #340, a#PWRVEC+2 37PRIO:7 
TYPE 3:REPORT THE POWER FAILURE 
$PWRMG: .WORD PWRMSG 7:POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) > :RESTART AT IOTEST 
SPWRAD: 5 td IOTEST 3 RESTART ADDRESS 
$ILLUP: HALT 3: THE POWER UP SEQUENCE WAS STARTED 
BR 72 i: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 ;PUT THE SP HERE 
PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12> 
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SEQ 0062 
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CZDRGE.P11 31-AUG-79 11:23 POWER DOWN AND UP ROUTINES ' SEQ 0063 | 

1710 
it -SBTTL TYPE ROUTINE 

(2) SURRAAAA ATER eeAKeKeeAKeKKeKeeeeAKeeA eee 

(1) « SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
(1) ;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
(1) > *NOT El: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
tH : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

*® 

(1) 3*CALL: 

(1) 3*1) USING A TRAP INSTRUCTION 

ae cen TYPE »MESADR 3:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

® 

(1) if TYPE 

(1) if MESADR 

a) . 

(1) 016520 105737 001157 $TYPE: TSTB STPFLG 3:1S THERE A TERMINAL? 

(1) 016524 100002 BPL 1$ 33BR IF YES 

(1) 016526 000000 HALT 3;HALT HERE IF NO TERMINAL 

(1) 016530 000430 BR 3$ 7 LEAVE 

(1) 016532 010046 1$: MOV RO,-(SP) SAVE RO 

(1) 016534 017600 000002 MOV a2(SP),RO GET ADDRESS OF ASCIZ STRING 

(1) 016540 122737 900001 001210 CMPB MAPTENV,SENV ; ;RUNNING IN APT MODE 

(1) 016546 001011 BNE 62% 3NO,GO CHECK FOR APT CONSOLE 

(1) 016550 132737 000100 001211 B1TB #APTSPOOL ,SENVM :: SPOOL MESSAGE TO APT 

(1) 016556 001405 BEQ 62$ 3:NO0,GO CHECK FOR CONSOLE 

(1) 016560 010037 016570 MOV RO,61$ 3:SETUP MESSAGE ADDRESS FOR APT 

(1) 016564 004737 020014 JSR PC, SATY3 3: SPOOL MESSAGE TO APT 

(1) 016570 000000 61$: -WORD 0 > MESSAGE ADDRESS 

(1) 016572 132737 000040 001211 828; BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 

(1) 016600 001003 BNE 60$ 37 YES,SKIP TYPE OUT 

(1) 016602 112046 2$: MOvVB (RO) +,-(SP) :;PUSH CHARACTER T6 BE TYPED ONTO STACK 
(1) 016604 001005 BNE 4$ 3:BR IF IT ISN'T THE TERMINATOR 

(1) 016606 005726 TST (SP)+ 3:1F TERMINATOR POP IT OFF THE STACK 
(1) 016610 012600 60$: MOV (SP)+,RO 7 RESTORE RO 

(1) 016612 062716 000002 3$: ADD #2,(SP) ;; ADJUST RETURN PC 

(1) 016616 000002 RTI 7; RETURN 

(1) 016620 122716 000011 4$: CMPB #HT, (SP) ;:BRANCH IF <HT> 

(1) 016624 001430 BEQ 8$ 

(1) 016626 122716 000200 CMPB #CRLF, (SP) 3:BRANCH IF NOT <CRLF> 

(1) 016632 001006 BNE 5$ " 

(1) 016634 005726 TST (SP)+ :;;POP <CR><LF> EQUIV 

(1) 016636 104401 TYPE 3: TYPE A CR AND LF 

(1) 016640 001165 SCRLF 

(1) 016642 105037 016776 CLRB SCHARCNT 3:CLEAR CHARACTER COUNT 

(1) 016646 000755 BR 2s 3:GET NEXT CHARACTER 

(1) 016650 004737 016732 5$: JSR PC ,STYPEC +360 TYPE THIS CHARACTER 

(1) 016654 123726 001156 6$: CMPB SFILLC,(SP)+ 31S 11 TIME FOR ete CHARS.? 

(1) 016660 001350 BNE 2$ at NO GO GET NEXT CHA 

(1) 016662 013746 001154 MOV $NULL,-(SP) :GET # OF FILLER CHARS. "NEEDED 

(1) SAND THE NULL CHAR, 

(1) 016666 105366 000001 7$: DECB 1(SP) 7:;DOES A NULL NEED TO BE TYPED? 

(1) 016672 002770 BLT 6$ 3:BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 016674 004737 016732 JSR PC ,STYPEC 3:G0 TYPE A NULL 
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016776 


162204 
000002 


000002 


MACY11 71 hae 


TYPE ROUT] 
DECB 
BR 


sHORIZONTAL TAB 


8$: MOVB 
9$: JSR 


B 
$TYPEC: 


1$: CMPB 


B 
SCHARCNT: .WORD 


STYPEX: RTS 






Ly 
31-AUG-79 


SCHARCNT 
7$ 


PROCESSOR 


#' (SP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 

2$ 

asTPs 
STYPEC 
2(SP) ,asTPB 
+ gla 


SCHARCNT 





;;D0 ar COUNT AS A COUNT 


;;REPLACE TAB WITH SPACE 

:3 SPACE 

se tree NOT AT 

3;POP SPACE OFF STACK 

;;GET NEXT CHARACTER 

;;WAIT UNTIL PRINTER IS READY 


;:LOAD CHAR TO BE TYPED INTO DATA REG. 
3318 gs & 


IF _N 
oe CHARACTER COUNT 
iT Serge bP A LINE FEED? 


l 
;;COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


CARRIAGE RETURN? 


re re ree oe ae re ee, eae ee oe 


5 
DRII-K LOGIC TEST st a -11-CZDRG-E oy hy. 306(1063) 31-AUG-79" "a y PAGE 41 
CZDRGE.P11 = 31-AUG=79 11:25 D AN OCTAL NUMBER FROM THE -T SEQ 0065 







ie -SBTTL READ AN OCTAL NUMBER FROM THE TTY 

(2) pp eeeeeareeeeeeeeerereeetenereeterereeeeeeteeaeeeeeeneeeee eee eee 
(1) s*THIS ROUTINE WILL READ AN OCTAL (ASCI1) NUMBER FROM THE TTY AND 
(1) >*CHANGE IT. TO BINARY. 

(1) s*CALL: 

(1) 3* RDOCT ;;READ AN OCTAL NUMBER 

(1) it RETURN HERE ety ORDER BITS ARE ON TOP OF THE STACK 
+ ;* sHIGH ORDER BITS ARE IN SHIOCT 
(1) 017002 011646 SRDOCT: MOV (SP) ,-(SP) s PROVIDE SPACE FOR THE 

(1) 017004 016666 000004 000002 MOV 4(SP),2(SP) >: INPUT NUMBER 

(3) 017012 010046 MOV RO,-(SP) :;PUSH RO ON STACK 

(3) 017014 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 

(3) 017016 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 

(1) 017020 104411 1$: RDLIN ;:READ AN ASCIZ LINE 

(1) 017022 012600 é MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
(1) 017024 005001 CLR R1 7: CLEAR DATA WORD 

(1) 017026 005002 CLR R2 

(1) 017030 112046 2$: MOVB (RO)+,-(SP) + PICKUP THIS CHARACTER 

(1) 017032 001412 BEQ 3$ ::1f ZERO GET OUT 

(1) 017034 006301 ASL R1 82 

(1) 017036 006102 ROL R2 

(1) 017040 006301 ASL R1 33%4 

(1) 017042 006102 ROL R2 

(1) 017044 006301 ASL R1 37*8 

(1) 017046 006102 ROL R2 

(1) 017050 042716 177770 BIC #*C7, (SP) ::STRIP THE ASCII] JUNK 

(1) 017054 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 

(1) 017056 000764 BR 2$ 3; LOOP 

(1) 017060 005726 3$: TST (SP) + :: CLEAN TERMINATOR FROM STACK 

(1) 017062 010166 0C0012 MOV R1,12(SP) 3 :SAVE THE RESULT 

(1) 017066 010237 017102 MOV R2,$HIOCT 

(3) 017072 012602 MOV (SP)+,R2 + POP STACK INTO R2 

(3) 017074 012601 MOV (SP)+,R1 :POP STACK INTO R1 

(3) 017076 012600 MOV (SP)+,RO : POP STACK INTO RO 

(1) 017100 000002 RTI ' RETURN 

(1) 017102 000000 $HIOCT: .WORD 0 >: HIGH ORDER BITS GO HERE 
“a -SBTITL Ty INPUT ROUTINE 

( 

(2) sp eeeeeeeeereerereee etter reer e eee AAA Kee Ree AAR 
A .ENABL LSB 

(2) peeeeeeeeereeeeerrtereee eee eee eee KAKA KAKA ARK ATA eTA eS 
(1) « SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

(1) s*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 

(1) + #SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) :-#WHEN OPERATING IN TTY FLAG MODE. 

(1) 017104 022737 000176 001140 $CKSWR: CMP #SWREG, SWR e338 THE SOFT-SWR SELECTED? 

(1) 017112 001074 BNE 15$ ;BRANCH IF NO 

(1) 017114 105777 162024 TSTB astKs : CHAR THERE? ° 
(1) 017120 100071 BPL 15$ ::1F NO, DON'T WAIT AROUND 

(1) 017122 117746 162020 MOVB asTKB,-(SP ++ SAVE THE CHAR 

(1) 017126 042716 177600 BIC #*Cl 7? eal sSTRIP-OFF THE ASCII 

(1) 017132 022726 000007 CMP #7, (SP 51S 11 A CONTROL G? 

(1) 017136 001062 BNE 15% ::NO, RETURN TO USER 


NC 


till 
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CZORGE.P11 | 31-AUG=79 11:23 TTY INPUT ROUTI 
(1) 0171460 123727 001134 000001 CMPB ss: SAUTOB, #1 : ARE WE RUNNING IN AUTO-MODE? 
1) 017146 001456 BEQ 15$ S:BRANCH IF YES 
(1) 017150 104401 017756 TYPE  ,$CNTLG ::ECHO THE CONTROL-G (*G) 
(1) 017154 104401 017763 SGISWR: TYPE  ‘S$MSWR >: TYPE CURRENT CONTENTS 
(2) 017160 013746 000176 MOV SWREG, (SP) ;3SAVE SWREG FOR TYPEOUT 
(2) 017164 104402 TYPOC [60 TYPE=-OCTAL ASCII CALL DIGITS) 
(1) 017166 104401 017774 TYPE  ,S$MNEW S:PROMPT FOR NEW SWR 
(1) 017172 005046 19$: CLR =(SP) ‘CLEAR COUNTER 
(1) 017174 005046 CLR -(SP) 3: THE NEW SWR 
(1) 017176 105777 161742 7$: TSTB astKs 3;CHAR THERE? 
He 017202 100375 BPL 7% s:1F NOT TRY AGAIN 
(1) 017206 117746 161736 MOVB  @$TKB,-(SP) :sPICK UP CHAR 
(1) 017210 042716 177600 BIC #°C177, (SP) >:MAKE IT 7*BIT ASCII 
aD 
(1) 017214 021627 000025 9$: CMP (SP) , #25 3318 17 A CONTROL-U? 
(1) 017220 001005 BNE 10% ;;BRANCH IF NOT 
(1) 017222 104401 017751 TYPE ,SCNTLU ;.YES, ECHO CONTROL-U (“U) 
(1) 017226 062706 000006 208: ADD #6,SP >: IGNORE PREVIOUS INPUT 
tH 017232 000757 BR 19$ s:LET'S TRY IT AGAIN 
(1) 
(1) 017234 021627 000015 10$: CMP (SP) #15 ::1S IT A <CR>? 
(1) 017240 001022 BNE 16$ ;;BRANCH IF NO 
(1) 017242 005766 000004 TST 4 (SP) 7:YES, IS IT THE FIRST CHAR? 
(1) 017246 001403 BEQ 11$ ;;BRANCH IF YES 
(1) 017250 016677 000002 161662 MOV 2(SP),aSWR 32:SAVE NEW SWR 
(1) 017256 062706 000006 11$: ADD #6,SP >:CLEAR UP STACK 
(1) 017262 104401 001165 14$: TYPE , SCRLF 3;:ECHO <CR> AND <LF> 
(1) 017266 123727 001135 000001 CMPB SINTAG,#1 3 ;RE-ENABLE TTY KBD INTERRUPTS? 
(1) 017274 001003 BNE 15$ ;;BRANCH IF NOT 
(1) 017276 012777 000100 161640 MOV #100, a$TKS 7 ;RE-ENABLE TTY KBD INTERRUPTS 
(1) 017304 000002 15$: RTI >: RETURN 
(1) 017306 004737 016732 16$: JSR PC ,STYPEC + sECHO CHAR 
(1) 017312 021627 000060 CMP (SP) ,#60 sCHAR < Q? 
(1) 017316 002420 BLT 18$ ; SBRANCH IF YES 
(1) 017320 021627 000067 CMP (SP), #67 *:CHAR > 7? 
(1) 017324 003015 BGT —s«-*18$ ; ;BRANCH IF YES 
(1) 017326 042726 000060 BIC #60,(SP)+ sSTRIP-OFF ASCII] 
(1) 017332 005766 000002 TST 2(SP) ::1S THIS THE FIRST CHAR 
(1) 017336 001403 BEQ 17$ >:BRANCH IF YES 
(1) 017340 006316 ASL (SP) ::NO, SHIFT PRESENT 
(1) 017342 006316 ASL (SP) >: CHAR OVER TO MAKE 
(1) 017344 006316 ASL (SP) <8 ROOM FOR NEW ONE. 
(1) 017346 005266 000002 17$: INC 2(SP) :IKEEP COUNT OF CHAR 
(1) 017352 056616 177776 BIS -2(SP), (SP) 3;SET IN NEW CHAR 
(1) 017356 000707 BR 7$ >:GET THE NEXT ONE 
(1) 017360 104401 001164 18$: TYPE ,$QUES Si TYPE ?<CR><LF> 
(1) 017364 000720 BR 20$ +: SIMULATE CONTROL-U 
(1) .DSABL LSB 
(1) 
(1) 
(2) s,eeeeererereerererereeeereteeereeteeereeeeteeeeeeeeeeteseeA ees 
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11K LOGIC TEST MAINDEC-11-CZDRG-E MACY11 306(1063) 31-AUG-79 13:05 PAGE 41-2 
DRGE.P11 | 31-AUG=79 11:23 TTY INPUT ROUTINE SEQ 0067 | 
M1) seTHIS | ROUTINE “ILL INPUT A SINGLE CHARACTER FROM THE TTY 

(1) 3* RDCHR 3; INPUT A SINGLE CHARACTER FROM THE TTY 
(1) ie RETURN HERE >:CHARACTER 1S ON THE STACK 

He ;* 3: WITH PARITY BIT STRIPPED OFF 

(1) 

(1) 017366 011646 SRDCHR: MOV (SP) ,<(SP) ::PUSH DOWN THE PC 

(1) 017370 016666 000004 000002 MOV 4(SP),2(SP) >: SAVE THE PS 

(1) 017376 105777 161542 1$: TSTB = @STKS ::WAIT FOR 

(1) 017402 100375 BPL 1$ [tA CHARACTER 

(1) 0174046 117766 161536 000004 MOVB a$STKB,4(SP) :;READ THE TTY 

(1) 017412 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 

(1) 017420 026627 000004 000023 CMP 4(SP) #23 ::18 17 A CONTROL-S? 

(1) 017426 001013 BNE 3$ ::BRANCH IF NO 

(1) 017430 105777 161510 2$: TSTB 3s STKS ::WAIT FOR A CHARACTER 

(1) 017434 100375 BPL 2$ ::LOOP UNTIL ITS THERE 

(1) 017636 117746 161504 MOVB a$TKB,-(SP) >:GET CHARACTER 

(1) 017442 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 

(1) 017446 022627 000021 UMP (SP)+,#21 ::1S IT A CONTROL-Q? 

(1) 017452 001366 BNE 2$ ::1F NOT DISCARD IT 

(1) 017456 000750 BR 1$ >:YES, RESUME 

(1) 017456 026627 000004 000140 3s: CMP 4(SP) #140 ::1S 17 UPPER CASE? 

(1) 017664 002407 BLT 4$ ::BRANCH IF YES 

(1) 017466 026627 000004 000175 CMP G(SP) #175 ::1S 17 A SPECIAL CHAR? 

(1) 017474 003003 BGT 4$ ::BRANCH IF YES 

(1) 017476 042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 

(1) 017504 000002 4$: RTI ::G0 BACK TO USER 

(2) 3 MABE ABBBBABBRBRBABSAAAAARARESESEASARAEELAESASBSASALSZESSLESLESLASALASAASRSES I 
() :STHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 

( Lis 

(1) ie RDLIN 23 INPUT A STRING FROM THE TTY 

(1) te RETURN HERE SADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
CD * SI TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 

(1) 017506 010346 SRDLIN: MOV R3,-(SP) ::SAVE R3 

(1) 017510 005046 CLR -($P) >:CLEAR THE RUBOUT KEY 

(1) 017512 012703 017742 1$: MOV WSTTYIN,R3 3:;GET ADDRESS 

(1) 017516 022703 01775' 2$: CMP WSTTYING7,R3 ;;BUFFER FULL? 

(1) 017522 101456 BLOS = 4$ :iBR IF YES 

(1) 017524 104410 RDCHR G0, READ aint CHARACTER FROM THE TTY 
(1) 017526 112613 MOVB = (SP) +, (R3) :3GET CHARACTER 

(1) 017530 122713 000177 10$:  CMPB #177, (R3) ‘IS IT A RUBOUT 

(1) 017534 001022 BNE 5$ ::BR IF NO 

(1) 017536 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 

(1) 017540 001007 BNE 6$ >:BR IF NO 

(1) 017542 112737 000134 017740 MOVB ss #'"\ ,98 >: TYPE A BACK SLASH 

(1) 017550 104401 017740 TYPE, 

(1) 017556 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 

(1) 017560 005303 6s: DEC R3 “BACKUP BY ONE 

(1) 017562 020327 017742 CMP RB #STTYIN 7: STACK EMPTY? 

(1) 017566 103434 BLO 4$ “BR IF YES 

(1) 017570 111337 017740 MOVB = (R3) , 9 >:SETUP TO TYPEQUT THE DELETED CHAR. 
(1) 017574 104401 017740 TYPE 9 >:G60 TYPE 

(1) 017600 000746 BR d$ 7:GO0 READ ANOTHER CHAR, 

(1) 017602 005716 5$: TST (SP) S=RUBOUT KEY SET? 
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020006 -EVEN 


DRII-* LOG 

CZORGE .P11 31-AUG-79 11:23 TTY INPUT ROUTINE SEQ 0068 
(1) 017604 001406 BEQ 7$ 7:BR IF NO 
(1) 017606 112737 000134 017740 MOVB e'\.9 3; TYPE A BACK SLASH 
(1) 017614 104401 017740 TYPE 9% 
(1) 017620 005016 CLR (SP) +49 THE RUBOUT KEY 
(1) 017622 122713 000025 7$: CMPB #25,(R3) 31S CHARACTER A CTRL WU? 
(1) 017626 001003 BNE &$ IF NO 
(1) 017630 104401 017751 1YPE »SCNTLU TYPE A CONTROL ‘'U"’ 
(1) 017634 000726 BR 1$ 7:G0 START OVER 
(1) 017636 122713 000022 8$: CMPB #22, (R3) 3718S CHARACTER A ‘*R‘'? 
(1) 017642 001011 BNE 3$ 7;BRANCH IF NO 
(1) 017644 105013 CLRB (R3) 43 7- g " een 
(1) 017646 104401 001165 TYPE , SCRLF :: TYPE A 
(1) 017652 104401 017742 TYPE -STTYIN 77 TYPE THE. int STRING 
(1) 017656 000717 BR 2s 3:60 eg , ANOTHER CHACTER 
(1) 017660 104401 001164 4$: TYPE , SQUES sc; TYPE A 
(1) 017664 000712 BR 1$ 7: CLEAR te BUFFER AND LOOP 
(1) 017 111337 017740 3$: MOVB (R3),9% 3:ECHO THE CHARACTER 
(1) 017672 104401 017740 TYPE 9 
(1) 017676 122723 000015 CMPB #15,(R3)+ 3: CHECK FOR RETURN 
(1) 017702 001305 BNE 23 ;;LOOP IF NOT RETURN 
(1) 0177046 105063 177777 CLRB =-1(R3) 3:;CLEAR RETURN (THE 15) 
(1) 017710 104401 001166 TYPE , $_F io TYPE A LINE FEED 
(1) 017714 005726 TST (SP)+ ;CLEAN RUBOUT KEY FROM THE STACK 
(1) 017716 012603 MOV (SP)+,R3 : :RESTORE R3 
(1) 017720 011646 MOV (SP) ,-(SP) ;ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 017722 016666 000004 000002 MOV 4(SP),2(SP) = FIRST ASCI1 CHARACTER ON IT 
(1) 017730 012766 017742 000004 MOV @STTYIN,4(SP) 
(1) 017736 000002 RTl RETURN 
(1) 017740 000 9$: -BYTE 0O : STORAGE FOR ASCII CHAR. TO TYPE 
(1) 017741 000 .BYTE 0 ; TERMINATOR 
(1) 017742 000007 STTYIN: .BLKB 7 RESERVE 7? BYTES FOR TTY INPUT 
(1) 017751 136 006525 000012 S$CNTLU: .ASCIZ /*U/<15><12> 3; CONTROL ‘'U"’ 
(1) 017756 043536 005015 000 S$CNTILG: .ASCIZ /*G/<15><12> >: CONTROL ‘'G'’ 
(1) 017763 C15 051412 051127 SMSWR: .ASCIZ <15><12>/SWR = / ‘ 
(1) 017770 036440 000040 
(1) 0177746 020060 042516 020127 SMNEW: .ASCIZ / NEW = / 
a 020002 020075 000 
(1) 
715 


— 
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_ 
ll el el el | 


020252 


ll el ek le ee ee ee ee ee el det ed at et lt ol aed ot ot ta nt nn tt. 
ek kk kk kk ek ek ek ts th 


TEST is bar a 11-CZDRG-E 
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112737 000001 020252 
112737 000001 020250 
000493 

112737 000001 020252 
010046 

010146 

105737 020250 

001450 

122737 000001 001210 
001031 

132737 000100 001211 
001425 

017600 000004 


062766 000002 000004 
005737 001170 


010037 001204 


163700 901204 


010037 001206 
012737 000004 001170 


017637 000004 020162 
062766 000002 000004 
013746 177776 
004737 016520 
105737 020252 
005737 001210 
005737 001170 


017637 0000%% 001172 
062766 000002 000004 


105037 020250 


000001 


MACY11 7 action 
TTY INPUT ROUTI 


E 
31-AUG-79 


6 
13:05 PAGE 42 


-SBTTL APT COMMUNICATIONS ROUTINE 


, , eeereerrererererrererrrereeererereeeeneteteteneeteteeteeneretee 


$ATY1: MOvB 
SATY3: MOvB 


SATY4: MOVB 
SATYC: 


128: CLRB 


SMFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 


APTSIZE=200 
APTENV=001 


#1, SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 


5$ 
ee »SENV 


;;TO REPORT FATAL ERROR 
3:10 TYPE A MESSAGE 


:;T0 ONLY REPORT FATAL ERROR 


;;PUSH RO ON eee 

;;PUSH R1 ON STACK 

5ST: “— A MESSAGE? 

: ;OPERATING UNDER APT? 
OT: BR 


:1F ON 
#APTSPOOL , SENVP SHOULD SPOOL MESSAGES? 
3$ NOT: BR 


a4(SP) ,RO 
#2,4(SP) 
SMSGTYPE 
1$ 


RO, SMSGAD 
(RO) + 


2% 
SMSOAD,RO 
RO 

RO, SMSGLGT 
Ea eerons 


ae iced a 
#2,4 

17776, 5p) 
. LSTYPE 


SFFLG 
12% 
SENV 


12$ 
SMSGTYPE 
11$ 


O4(SP) ,SFATAL 


#2,4(S5P) 
SMSGTYPE 
SFFLG 
$LFLG 
SMFLG 
(SP)+,R1 
(SP)+,R0 
PC 

0 


0 
0 


:3GET MESSAGE ADDR. 
;BUMP RETURN ADDR. 


Ahr IF DONE W/ LAST XMISSION? 


F NOT: WAIT 
:PUT ADDR IN MAILBOX 
IP IND END OF MESSAGE 


3:;SUB START OF MESSAGE 

7:GET MESSAGE LNGTH IN WORDS 
7;PUT LENGTH IN MAILBOX 

7: TELL APT TO TAKE MSG. 


:;PUT MSG ADDR’ IN JSR LINKAGE 
-BUMP RETURN ADDRESS 
:PUSH 177776 ON STACK 
STCALL TYPE MACRO 


>: SHOULD REPORT FATAL ERROR? 
si: 1F NOT: PR 
ge on UNLER APT? 

if 


NOT: BR 
FINISHED LAST MESSAGE? 
:1F NOT: WAIT 
:GET ERROR 2 
;BUMP RETURN ADDR. 
s TELL ai TO TAKE ERROR 
;CLEAR FATAL FLAG 
TICLEAR LOG FLAG 
:: CLEAR MESSAGE FLAG 
7:POP STACK INTO R1 
*  ;;POP STACK INTO RO 


>: FATAL FLAG 


Ge ob en Ae 


SEQ 0069 


. 
ss 


tt at wt et I) ot ee L 
ewww www ww ww we we we ss Ow we 


PRO DRO RO rt At A NW ss 2 ss ss ss es 
NM Ow we ww we ww we a a wwe ww wee swe es 


—_—— 
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020254 


020274 


020276 
020300 
029306 


020310 


020322 
020324 
020326 


020334 
020336 
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000100 
000040 


010046 


000200 


011646 
016666 
000002 


020276 


016112 
011360 


017154 
017104 


017002 


000000 
000751 


000004 000002 
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3 APT COMMUNICATIONS ROUTINE SEQ 0070 


APTSPOOL=100 
APTCSUP=040 
-SBTTL TRAP DECODER 


ppeeeereeeerereereee eeerrerererrerteeeereeeeeeeeeeeTeereeeeetere 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 77 SAVE RO 
MOV 2(SP),RO ::GET TRAP ADDRESS 
TST -(R0) : BACKUP BY 2 
MOVB (RO) ,RO 3:GET RIGHT BYTE OF TRAP 
ASL RO 3:POSITION FOR INDEXING 
MOV STRPAD(RO),RO =; INDEX TO TABLE 
RTS RO 3:G0 TO ROUTINE 


73 THIS 1S USt 10 HANDLE THE ‘’GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,=<(SF) ,:MOVE THE PC DOWN 
MOV 4(SP),2(SP) > MOVE THE PSW DOWN 
RT] > RESTORE THE PSw 
.SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "‘TRAP’’ INSTRUCTION. 


: ROUT INE 
STRPAD: .WORD $TRAP2 
STYPE =: CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 


$TYPOC ;;CALL=TYPOC TRAP*+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP#+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR >; CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 

SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
SROCHR ;;CALL=ROCHR TRAP#10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ;;CALL=RDLIN TRAP#11(104411) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 


BUFFER: 0 :10 WORD BUFFER FOR THE COULTER INTERFACE TES? 
END 


G 6 - 
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CZDRGE.P11 31-auG-79 1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0071 
ABASE = 167770 3920 409 

ACDW1 = 000000 409 

ACDW2 = 000000 409 

ACPUOP= 000000 409 

ADBR 013302 1619 16554 

ADCS 013276 1609* 161468 1617 16538 
ADCS1 013300 1608" 1654@ 
ADDWO = 000000 409 

ADDW1 = 000000 409 

ADDW10= 000000 409 

ADDW11= 000000 409 

ADDW12= 000000 409 1 
ADDW13= 000000 409 

ADDW14= 000000 409 

ADDW15= 000000 409 

ADDW2 = 000000 409 

ADDW3 = 000 409 

ADDW4 = 000000 409 

ADDWS = 000000 409 

ADDW6 = 000000 409 

ADDW7 = 000000 409 

ADDW8 = 1000 409 

ADDW9 = 000000 409 

ADEVCT= 000000 409 

ADEVM = 000000 409 

AENV = 000 409 

AENVM = 000000 409 

AFATAL= 000000 409 

AMADR1= 000000 409 

AMADR2= 0000 409 

AMADR3= 000000 409 

AMADR4&= 409 

AMAMS 1= 00 409 

AMAMS2= 409 

AMAMS3= 000000 409 

AMAMS4= 0000 409 

AMSGAD= 000000 409 

AMSGLG= 00000 409 

AMSGTY= 000600 409 

AMTYP1= 000000 409 

AFTYP2= 00000 409 

AMTYP3= 000000 409 

AMTYP4= 00000 409 

APASS = 00000: 409 

APRIOR= 000000 409 

APTCSU= 000040 171 17184 
APTENV= 000001 1697 1711 17188 
APTSIZ= 000200 522 17188 
APTSPO= 000100 1711 17188 
ASWREG= 000000 409 

ATESTN= 00000 409 e 
AUNIT = 000000 409 . 
AuSWR = 000000 409 

AVECT1= 100300 393" 409 





409 
BASEBA 001362 4678 525e 529 658 1598 
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CZDRGE .P11 31-AuG-79 11:23 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0072 
BASEBR 001366 46098 526¢ 527* 688 
BASEIV 001364 4688 5240 525* 659 1399 
BEGIN 001454 398 Sila 598 1437 
BITO. = 000001 tee OS 
= 4a 4 756 954 988 1010 1246 1 
BIT00 = 000001 3908 “ee 
B11T01 = 000002 3948 
B1T02 = 4 3948 
B1103 = 000010 3948 
B1T04 = 20 394" 
B1T05 = 000040 394" 
B1T06 = 000100 3948 
B1107 = 000200 3948 
B1T08 = 000400 394" 81696 
B1109 = 001000 394" 861696 1697 
BITl = 02 - 3948 
B1T10 = 002000 3948 870 1215 1242 1279 1310 
B11T11 = 004000 3948 1696 
B1T12 = 010000 3944 591 924 
B1113 = 020000 3948 1193 1609 1697 
B1T14 = 040000 394" 827 828 855 1318 1325 1411 1696 
B1T15 = 100000 3940 818 819 855 1108 © 
B1T2 = 000004 394" 
BI1T3 = 000010 394" 
R114 = 000020 3948 
B1T5 = 000040 3948 1144 1170 1353 1370 
BIT6 = 000100 3948 &44 845 855 1169 1180 1223 1230 14648 
B1T7 = 000200 3948 835 836 855 1096 1248 
BI1T8 = 000400 3948 
B1T9 = 001000 3948 
BPTVEC= 000014 3948 
BRLEV1 001436 4934 1342 13458 1349 
BRLEV2 001440 494" 9540 957 977 9B2* 13442 1366 % 
BRLEVS 001442 A m+ $4 Riy Ass x ned ‘se Bo 4 Be: 1021 1030 1031¢ 12468 1250 
5 6 6 * 283e = §=6128 1292 1293 129% 13046¢ 1691 
BUFFER 020336 144? 1667—«41:72:18 . * . 
BUSTRP 013463 540 1435 16604 
BYPASS 011140 13908 
BYPAS! 011226 1393 1397 14024 1405 
CKSWR = 104407 1696 1697 17198 
COULTJ 001464 402 514a 
COULTR 011766 401 14408 
CPU 1370 4704@ 1454 
CR = 000015 3948 861717 - 
CRLF = 000200 394" =—«17711 
DDISP = 177570 3948 409 522 
DEPCNT €14227 647 16724 
DFO 015224 415 421 427 433 439 445 453 459 465 16928 
DH1 014671 413 16834 
DH10 015102 457 463 1687«@ 
DH2 014741 419 16848 
Dn5 015007 425 16854 . 
DH4 915055 431 437 443 451 16868 
DIOBRL 001434 4928 68Re 13360 1339 «1342 1344 
DISPLA 001142 4098 522* 1696« 1697e ° 


DISPRE 000174 3988 522 


CZDRGE .P 








terre 
001416 
001412 


001414 


001424 


001430 


001426 


001432 


001410 


104406 


000020 


LOGIC TEST 
im) 


MAINDEC-11-CZDRG-E 
11:23 


I 
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CROSS REFERENCE TABLE == USER SYMBOLS 


676 
681 


16908 


1250 
6578 





911 
1030 
1320 


725 

785 

902¢ 
1023* 
12568 


13168 
13148 
1317* 
1330¢ 
ieee 


1270 
14438 








DRII-K LOGIC TEST 


CZDRGE.P11 
JUMPER 001452 
LF = 000012 
LOCA 012300 
LOCBOX 012226 
LOCHDR 013304 
Loc 001402 
LOociyY 012532 
LOce 001404 
LOoc2y 012534 
LOc3 001406 
LOC3Y 012536 
LOUP1 012460 
MINSIN 001446 
MSGRUS 013544 
MSPNT1 013553 
NBEXT 001374 
NMBEXT 001372 
NOTLCH 001420 
ODDIMP 001444 
PIRQ = 177772 
PIRQVE= 000240 
PRO = 000099 
PR1 = 000040 
PR2 = = 000100 
PRS == 000140 
PRG = = 000200 
PRS == 000240 
PR6 = = 000300 
PR7 == 000340 
PS = 177776 
PSW == (177776 
PWRMSG 016452 
PWRVEC= 000024 
RBEG 001514 
RBEG1 002132 
RBEG2 003126 
ROCHR = 104410 
RDLIN = 104411 
RDOCT = 104412 
RESVEC= 000010 
RUNMSG 013524 
SETADD 003166 
SETTRP 011712 
STACK = 001100 
STKLMT= 177774 
SWOPOB 014142 
SWINTB 013652 
SWNLB) = 0135 
SWPOSB 013750 
SwR 001140 
SWREG 000176 
SWIRAB 014044 


000001 


MAIND 
91 


EC-11-CZDRG-E 
1:23 
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5i4* 
1501 


FWNf-OOe 


517 
1503# 





563 


1161* 
1362* 


1706* 


1490 


619 
1706* 


570 


1565 


1350 


1588 
1595 
1602 


938 


955 
891 


640 


1367 


1589 
1596 
1603 


960 
901 


6448 


1590 
1597 
1604 
992 1014 
904 913 


1194* 12038 
1382* 1387* 


649 870 


1020 
916 


1209* 


1215 


1037 
922 


12268 


1242 


SEQ 0074 


1063 
925 


1236* 


1279 
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CZORGE .P11 31-AUG-79 11:23 CROSS REFERENCE TABLE -- USER SYMBOLS 


sw0O = 001 3948 

$wO1 = 000002 394" 

SwO2 = 000004 3944 

swO3 = 000010 3948 

$w04 = 000020 3948 

SwOS = 000040 3948 

$w06 = 000100 3948 

sw07 = 000200 3948 

SwO8 = 000400 3948 

swO9 = 001000 394" 

Swi = = 000002 394" 

Swi0 = 002000 394" 

SWi1 = 004000 594" 

SWi2 = 010000 394" 1392 

Swi3 = 020000 3948 538 619 
SW14 = 040000 394" 

SWwi5 = 100000 394m 541 626 
Sw2 = 000004 3948 

Sw3 = = 000010 3948 

SW4 = = 000020 3948 

SW5 = = 000040 3948 

SW6 = =: 000100 3948 

SW? = =: 000200 394m 

Sw8 = 000400 394m 

Sw9 == 001000 394m 

TALK 003016 577 580 583 586 603 6368 
TBITVE= 000014 394m 

TKVEC = 000060 3948 

TPVEC = 000064 394" 

TRANST 001450 498m 568* 575* 588 594 691 
TRAPVE= 000034 3948 S22* 1428* 14298 
TRIVEC= 000014 3944 

TSTNUM 015242 1689 1690 1691 1693# 1697+ 
TST] 003372 6934 

TST10 03734 754m 

TST11 004020 7694 

TST12 004116 777 7804 

TST13. 004214 788 7914 

TST14 004302 8034 

TST15 004370 815A 

TST16 ©=©.004440 822 8254 

TST17 = 004502 831 8344 

TST2 003410 6984 

TST20 004540 842m 

TST21 004602 848 8524 

TST22 004644 858 8694 

TST23. = 004742 881 8844 

TST24 005026 895 8978 

TST25 005112 906 909" 

TST26 §=©005176 918 9214 

TST27 005356 923 9514 

T$13 003446 703 706# 

TST30 ©. 005536 9864 

TST31 005654 10084 

TST32 006014 1 





006410 


SEQ 0075 


ae eS 
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DR 
CZ 1:23 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0076 
TST34 007004 1081 1084# 
TST3 007062 1092 10954 
T$136 =. 007132 1102 11074 
1S137 = 007200 1114 11184 
TST4 003504 711 7148 
TST40 §=—007312 1133 11384 
TST41 007424 1149 1158 11634 
TST42 007562 1181 1183 11874 
TS143 = 007674 1198 1206 12124 
TST44 010062 1217 12414 
TST45 =—010252 1243 12784 
TST46 =—010404 1280 1307# 
TST4¢7 =—.010566 1312 13344 
TST5 003542 719 722a 
TST5O0 ©010646 13464 
TST51 010764 13634 
TST52 =011130 13894 
TST6 003600 727 7304 
TST7 003656 7418 
TYPDS = 104405 140 17198 
TYPE = 104401 540 557 558 562 621 624 638 642 646 1405 1406 1435 1446 
1486 1492 1520 1523 1567 1697 1700 1703 1706 1711 1714 1719# 
TYPOC = 104402 623 1522 1700 1714 17198 
TYPON = 104404 17198 
TYPOS = 104403 560 17194 
UNEXPT 003076 6544 692 1238 1330 1361 1386 
VECTRP 002572 549 609" 
XLOADJ 013066 1586 1587 1588 1589 1590 1593 1594 1595 1596 1597 1600 1601 1602 
1603 1604 16084 
013426 1567 16594 
405 15654 
1570 1573 1576 15844 1605 
4084 
1718 
17184 
17184 
11 17184 
1697 17188 
409# 1714 
4094 523 
409" 
409M 701* 702 710+ 717+ 718 725* 726 734* 735 747* 748 760* 
761* 62 775* 776 786* 787 796* 797 808+ 809 820+ 821 829* 
830 837* 838 846+ 847 857* 878+ 879* 880 890* 891* 892 903* 
904* 905 915+ 916* 917 932¢ 933 942% 943 964" 965* 966 9748 
975* 977 999* 1000 1025* 1026 1051* 1055 1076* 1080 1090* 11091" 1100* 
1101 1113* 1179" 1180 1247* 1271* 1284" 1689 1691 
4094 
17114 
1714 81719 
4094 522 667 
4094 
17144 
1714¢ 
4098 


409# {697 1700 1711 1714 





DR1I1-K LOGIC TEST MAINDEC-11-CZDRG-E 
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MNRNMWWNWUIP 


oo 
— 
NN SNR eno ory 


001124 


011314 
017154 


001110 
001222 


001170 
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4098 
408 


409e 


M 6 
MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-6 
CROSS REFERENCE TABLE -- USER SYMBOLS 


522 


1178* 


1714 


742* 


1696 


1697* 


1038+ 
1248+ 


755* 


1697 


1700 


1039 
1269* 


792s 


1711 


804* 


1005* 1016 
1061* 1062* 1063* 
1691 


952 987" 1009+ 


723* 726 
766* 770% 
806 807 
876* 880 
917 924" 
960 963 
1919* 1020+ 
1064 1080 


1245* 1282+ 


SEQ 0077 


1696* 








N 6 
DRII-K LOGIC TEST ss a bb 11-CZDRG-E = MACY11 306(1063) 31-AUG-79 13:05 PAGE 43-7 


CZORGE.P11 31-AUG-79 11:23 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0078 | 
SMAMS1 001220 4098 

SMAMS2 001224 4094 

SMAMSS 001230 4094 

SMAMS4 001234 4094 

SMBADR 001002 4084 

SMFLG 020250 17184* 

SMNEW 017774 17148 

SMSGAD 001204 409# 1718+ 

SMSGLG 001206 409# 1718+ 

SMSGTY 001170 4094 1718+ 

SMSWR 017753 642 17144 

SMTYP1 001221 4094 

SMTYP2 001225 4094 

SMTYP3 001231 4098 

SMTYP4 001235 4098 

SMXCNT 015522 16964 

SNULL 001154 409# 1711 

$NWTST= 000001 6934 6984 7064 7148 7228 7308 7418 7544 7694 7804 7918 8038 8154 


8254 8344 842a 8528 8698 884s 8978 909M 9218 951" 9864 19084 10348 
1059# 10844 10954 1107# 14184 11384 1163@ 11874 1212 124618 12788 13078 1334# 


SOCNT 016274 1703M« 

SOMODE 016276 1703a* 

SOVER 015506 1696" 

$PASS 001176 409M 522% 1405" 1696 

SPASTM 001006 4084 

SPURAD 016440 1706# 

$PURDN 016300 5 1430 —1706# 

SPURMG 016434 1706# 

$PURUP 016352 1706# 

SQUES 001164 409M 1697 1711 = 1714 

SRDCHR 017366 17148 = 1719 

$RDDEC= #eeeee Y 1719 

$RDLIN 017506 1714" = 1719 

$RDOCT 017002 1713# = 1719 

$RDSZ = 000007 17148 

$RTNAD 011336 14054 

$R2A = eeeeee Y 1719 

S$SAVRE= teeeee 1719 

$SAVR6 016450 1706#* 

$SCOPE 015244 522 1696 

$SETUP= 000137 447 522 1405 1696 1697 1714 

$STUP = 177777 4478 

$SVLAD 015452 16964 

$SVPC = 000240 406M . | 

$SWk = 165400 383¢ 390 s398Ssi09s—i—i‘22siS (B78 7K 722 730,741 754 
769 «= 780s 791 B15 ss B825 B34 C(iti« (tsi BS BHDiBAC(i‘i (909 
921 951 986 1008 1034 1059 1084 1095 1107 1118 1138 1163 © 1187 
12121241. -«1278~=——«1307—Ss«1334 «1346 «136301389 = :1405 1697-1706 

$SWREG 001212 409" 

$SWRMK= 000000 396 = 1696 

STESTIN 001174 LO9# = 1696* 

$TIMES 001160 209" S22e 7068 730* «= 791# «= BO3® = BS2® «921 «=—«10B4Y =«1118* = 1334% «= 1389* =—-1405* 

® 
$1KB 001146 4O9# = 1714 
$TKS 001144 409M = 17148 





DRII-K LOGIC TEST mayer’: 11-CZDRG-E 
CZORGE .P11 9 11:23 


= 000053 


grrrree 


020340 


errnree 


001000 


ma 
ze 


m—wooc 


— es 

N—-OOonoe 

NWOvVOO m-— 
22 OO 


1696+ 


4084 
1708# 





8 7? 
13:05 PAGE 43-8 
TABLE -- USER SYMBOLS 


apa 


rus 
~ 





ADJXL 


CLERIN 
CLEROT 


CLRVCT 


15784 
1604 


31-AUG-79 1 


1588 


899 
898 


1330 


1589 


911 
910 


1361 


DRII-K LOGIC TEST ALNDEC 11-CZDRG-E ht 306(1063) 
CZORGE .P11 1:23 


1590 


C 
31-AUG-79 
1593 1594 
1041 1066 
1011 1023 
728 737 
907 919 
1148 1160 
1358 1383 
730 741 
909 921 
1241 1278 
730 741 
909 921 
1241 1278 
777 788 
1027 1056 
1243 1251 
706 714 
869 884 
1163 1187 
1703 1706 
730 741 
909 921 
1241 1278 
788 822 


7 
o 05 PAGE 44 
CROSS REFERENCE TABLE -- MACRO NAMES 


1595 


1086 
1040 


754 
951 
1307 


831 


1596 1597 1600 


769 780 791 
986 i008 1034 
1334 1346 1363 


839 =. 848 858 


815 
1084 


893 


SEQ 0080 
1603 


825 
1095 


906 





7 
T MAINDEC=-11-CZDRG-E MACY11 306(1063) 3:-AUG-79- 13:05 — 44- 


DRII-K LOGIC 
iB) 


-—rn 
wm 


CZORGE .P AUG-79 11:23 CROSS REFERENCE TABLE -- MACRO NAME SEQ 0081 
918 923 1056 1081 1092 1102 1114 1133 1149 1158 1181 1183 1198 1206 1217 
1243 1280 1312 


-EQUAT 3858 394 & 


- $SCOP 3864 1696 

SSPAC 3868 

- $SWDO 3868 

- STRAP 3868 1719 

STYPD 3878 =} . 
STYPE 385a 386# 8 1711 

$TYPO 3eSa 


- ABS. 020340 000 CON RW REL GBL OD 


ERRORS DETECTED: 0 : 


CZDRGE , CZDRGE/C8F =CZDRGE 
RUN-TIME: 26 13 1 SECONDS 
RUN-TIME RATIO: 76/42=1.7 
CORE USED: 25K (49 PAGES) 


